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AKTUELE BIJLAGE BIJ COMMODORE DOSSIER 


COMMODORE DOSSIER IN VIDITEL 


Het heeft even geduurd, maar 
nu is het dan eindelijk zover. 
Commodore Dossier gaat in Vi- 
ditel. Op het moment dat we dit 
schrijven zijn de voorbereidin- 
gen in een laatste stadium en op 
het moment dat u dit leest, zijn 
we te raadplegen in Viditel. We 
hebben een flink aantal pagina’s 
gehuurd van informatieleveran- 
cier Videotex Buro Amsterdam, 
daar kunt u ons dus vinden. 
Het paginanummer dat u moet 
intoetsen om rechtsreeks bij ons 
terechi te komen, is op dit mo- 
ment nog niet bekend. 

Wat mag u verwachten van 
Commodore Dossier in Viditel. 
Natuurlijk zullen we toevallige 
*binnenkomers’ uitleggen wat 
Commodore Dossier nu precies 
inhoudt en hoe men zich kan 
abonneren. Dat hoofdstuk kunt 
u als trouwe abonnee natuurlijk 
oversiaan. In de rubriek ’Geach- 
te redactie’ verwachten we u wel 
te begroeten. In die rubriek 
kunt u zich rechtstreeks tot de 


COMMODORE DOSSIER AKTIEF ver- 
schijnt 12 keer per jaar. In februari, 
mei, augustus en november als bijla- 
ge in het hart van Commodore Dos- 
sier, in de overige maanden als los- 
se uitgave, uitsluitend voor abonnees 
van Commodore Dossier. 
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redactie wenden met vragen en 
opmerkingen. Vragen die ook 
voor andere lezers van belang 
kunnen zijn, beantwoorden we 


ter plekke, andere vragenstellers — 


krijgen persoonlijk aniwoord. 
In weer een aparte rubriek kunt 
u zich tot mede-Viditel-gebrui- 
kers richten. Daar kunt u een 
advertentie kwijt of een belan- 
grijke mededeling, daar kunt u 
oproepen plaatsen. Kortom dat 
is een rubriek waar de redactie 
zich nauwelijks mee zal bemoei- 
en, tenzij om af en toe oude — 
boodschappen te verwijderen. 
Een rubriek die we zeker ook 
onder uw aandacht willen bren- 
gen is ’Volgend nummer’. Daar- 
in melden we niet alleen wat we 
voor volgende nummers van 
plan zijn, maar geven we u me- 
teen de gelegenheid om voorstel- 
len te doen. Er zijn immers vast 
wel onderwerpen waarvan u 
vindt dat ze al lang in Commo- 
dore Dossier behandeld hadden 
moeten worden. . 
Misschien wel het belangrijkste 
onderdeel van Commodore Dos- 
sier in Viditel zijn de program- 
ma’s die u zo in uw computer 
kunt laden. Tenslotte hebben we 
u in nummer 2 niet voor niets een 
Viditel-programma met down- 
loader cadeau gedaan. In deze 
rubriek treft u niet alleen pro- 
gramma’s aan die al eerder in 
Commodore Dossier te vinden 
waren, maar ook bijvoorbeeld in- 
zendingen van lezers die de lang 
zijn om als listing te plaatsen. 
Niet-abonnees moeten voor deze 
programma’s een redelijk be- 
drag betalen. Voor abonnees 
zullen de programma’s yrijwel 
allemaal gratis zijn. Dat is lo- 
gisch. onze abonnees zijn ons 
dierbaar en dus moeten ze wor- 
den voorgeirokken. : 
Dat betekeni dat er in Commo- 
dore Dossier in Viditel een 


besloten gedeelie 
is, dat alleen toe- 
gankelijk is voor 
abonnees. Om als 
abonnee onge- 
stoord in dat ge- 
deelte te worden 
binnengelaten, a 
moet u wel enige aciie ondernemen. 


viditel - 
fuse ReEbeminunibabie| 


UTC eda | 


Pe ee ee ss ea ee a ae 


Stuurt u ons op een briefkaartie ABONNEE-NUMMER 

of in een brief: (7-cijferig nummer staat op de 
NAAM ADRES wikkel waarin Commodore Dos- 
POSTCODE EN WOON- sier wordt opgestuurd) 
PLAATS VIDITEL KLANT-NUMMER 


PROGRAMMEREN RICHTING 
LAS VEGAS 


We komen nog even terug op de vorige keer al aangekondigde pro- 
grammeerwedstrijd van Aackosoft. Inmiddels zijn de details duidelijk 
geworden. Belangrijk is in elk geval dat de inzendtermijn sluit op 15 de- 
cember aanstaande. Aackosoft heeft met de winnaars grote plannen. 


‘De drie beste programma’s zullen grootscheeps onder de aandacht van 





het Europese publiek worden gebracht en ook de Amerikaanse markt 
zal naar yermogen worden bewerkt. Daaraan kunnen de winnaars zelf 
trouwens hun steentje bijdragen. De hoofdprijzen bestaan immers uit 
drie reizen naar de CES in Las Vegas ( vertrek rond 8 januari 1985). 
Behalve touristische activiteiten, zullen daar voor de deelnemers ook 
enige zakelijke bijeenkomsten op het programma staan. Tijdens een 
feestelijke bijeenkomst kunnen contacten worden gelegd met enkele 
kopstukken uit de Amerikaanse software-wereld. 

Uiteraard zullen de handen wel uit de mouwen moeten. Aackosoft stelt 
zijn eisen erg hoog. Men heeft geen behoefte aan masterminds, trictrac 
en meer van dat bekends. Eventueel kunnen geniale ideeén nog wel wat 
uitgewerkt worden door de huisprogrammeurs, maar de voorkeur gaat 
toch uit naar programma’s die zo naar de winkel kunnen. De machine 
waarop en de taal waarin wordt geprogrammeerd zijn vrij, maar de 
software moet op elektronische drager worden aangeleverd en voorzien 
zijn van uitgebreide handleiding. Programma’s die buiten de hoofd- 
prijzen vallen, kunnen worden uitgebracht door Aackosoft of door een 
van de vakbladen die deelnemen aan de jurering. Bij die vakbladen ho- 
ren uiteraard ook PCM en Commodore Dossier. Ken en ander betekent 
wel dat deelnemers aan de wedstrijd met hun programma ook hun rech- 
ten inleveren. 

De programma’s moeten worden opgestuurd naar 

Aackosoft International BY, Postbus 3111 

2301 DC Leiden, 071-412121 

Daar zijn ook de details van de wedstrijdreglementen te ii bil 
de dames Marian Jongkind en Tanja Niebuhr die gezamenlijk de 
wedstrijdleiding vormen. 
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KLEUREN EN KARAKTERCODES 


Zoals we in de vorige aflevering 
al zagen, is het gebruik van ka- 
rakterstrings — strings met ‘ver- 
borgen’ karaktercodes — bij- 
zonder nuttig. Uw programma’s 
bevatten geen besturingstckens 
meer waardoor ze veel leesbaar- 
der worden. Daarnaast is het nu 
ook geen probleem meer pro- 
gramma’s op bijvoorbeeld een 
margrietwielprinter af te druk- 
ken, die immers geen bestu- 
ringstekens kent. 


Commodore microcomputers 
beschikken over 8 (Vic-20) of 16 
(CBM-64/128, C-16 en +4) ba- 
siskleuren. Op de CBM-64 zijn 
de kleuren als volgt ge- 


nummerd: 

QO = zwart 

1 = wit 

2 = rood 

3 = cyaan 

4 = paars 

5 = groen 

6 = blauw 

7 = geel 

8 = oranje 

9 = bruin 

10 = lichtrood 
11 = gryjsl 

12 = grijs2 

13 = lichtgroen 
14 = lichtblauw 
15 = enjs 3 


Door het randkleurregister 
(53280) met éen van bo- 
venstaande waarden te POKEn, 
kiest u een kleur. 


Zoals u weet, is het ook moge- 
lijk om de tekstkleur te veran- 
deren. Het vervelende probleem 
is echter dat de tekst-kleurcodes 
NIET corresponderen met de 
codes voor scherm- en 
randkleur. 


De codes voor tekstkleuren die 
door middel van karakterstrings 
kunnen worden ingesteld, zijn: 


zwart = |44 
wit | = 3. 
rood = 28 
cyaan = 159 
paars = 156 
groen = 30 
_blauw = 3 
geel = 5s 
oranje = (29 
bruin = 149 
lichtrood = 150 
erijs | = [51 
grijs 2 = 12 
lichtgroen = 153 
lichtblauw = 154 
grijs 3 = iss 


Om de tekstkleur wit te gebrui- 
ken, toetst u dus in: print 
chr$(5). 


TIPS EN TRUCS 


Maandelijkse rubriek met korte 
nes en utilities. Popanmesrs 
essionals. Lezers helpen fezers. 


en buitenlandse pro 


Jae routi- 


viezen van binnen- 


Het zijn de kleine dingen die het doen. Tips & trucs 
van lezers worden, indien geplaatst, beloond met 50 


gulden. 
BIEP 


De volgende subroutine, die 
eventueel door het gebruik van 
een verkorte ’poke’-instructie p 
SHIFT 0 op ¢én regel past, 
zorgt voor een korte pieptoon. 
Als de gebruiker van een pro- 
eramma een fout maakt, kan 
hij daar door de pieptoon op 
worden gewezen. Bijvoorbeeld 
als hij een verkeerde toets in- 
drukt of als er geen schijf in de 
drive zit. 

Zoals u viel, eindigt de routine 
met een RETURN-instructie. 
Dit betekent dat u een GOSUB 
(vanuit het hoofdprogramma) 


moet gebruiken om de routine 
aan te roepen. Uiteraard kunt u 
uw eigen regelnummers kiezen. 


CBM-64 


63000 pokeS4296, 15:poke54278, 


240:poke54273,80:poke54276,17 
63001 for x= lto500:next: 
poke54267, (6:return 


Vic-20 
63000 poke36878, 15:poke36874, 


220 
63001 for x= Ltod500:next: 


Zoals u ziet, zijn de codes voor 
de diverse kleuren nou niet be- 
paald voor de hand liggend. We 
kunnen ze echter door middel 
van een eenvoudige program- 
meertruc voor eigen gebruik be- 
zigen. We zetten in onderstaand 
programma de ongemakkelijke 
kleurcodes (onderste tabel) om 
naar de voor de hand liggende 
getallenrij van 0 tot 15 (bo- 
yenste tabel). Dat gebeurt door 
middel van de volgende regels: 


10 rem demonstratie van kleu- 
renstring 

20 dim k1$(15) 

30 for x=0 to 16 

40 read y 

50 kIS(x) = chr$(y) 

60 next x 

100 data 144,5,28,159,156,30, 
31, 158 

110 data 129,149,150,151,152, 
153,154,155 


Nu beschikken we over een ar- 
ray kI$(..) waarin de kleurenco- 
des zijn opgeborgen. k1$(0) 
komt nu dus overeen met de 
kleur zwart, kI$(1) met de kleur 
wit enzovoort. Dit werkt een 
stuk makkelijker en overzichte- 
lijker dan de kleurenstrings hier- 
boven, omdat de kleurencodes 
voor zowel rand- en scherm- 


poke36874,0: return 

Nog een paar opmerkingen. De 
lengte van de pieptoon wordt 
geregeld door het getal 500 in 
regel 63001 te variéren. Deel het 
getal door 1000 om de tijd in 
seconden te vinden. 


kleur als voor de tekst nu gelijk 
zijn. 


Het nut van bovenstaand pro- 
gramma kunnen we eenvoudig 
demonstreren. We voegen nog 
een paar regels aan het pro- 
gramma toe: 


200 print chr$(i47): rem scherm 
schoon 

210 for x=1 to 16 

220 print ”? ’’kI$(x)’’commodore 
dossier’’chr$(145) 

230 for t=1 to 10:mexi:next 

240 goto 210 


In regel 210 — 230 wordt de 
tekst commodore dossier’ in 
één van de 16 aanwezige kleu- 
ren op het scherm gezet. Daar- 
na wordt de volgende kleur ge- 
kozen, waarna de computer de 
tekst opnieuw PRINT. 

U zou nu de ’chr$(145)’ in regel 
220 eens kunnen verwijderen. 
Nu drukt de computer de tekst 
steeds een regel lager af, zodat 
u de kleuren goed met elkaar 
kunt vergelijken. Dat is meteen 
een goede gelegenheid om de 
monitor of televisie optimaal af 
te stellen. 


De hoogte van de toon stelt u 
in door register 54273 te PO- 
KEn van 0 tot 255, voor de 
Commodore 64. In de Vic-20 
routine kunt u register 36874 
verhogen of verlagen. 


LADEN VANUIT EEN 
PROGRAMMA 


Tedere Commodore-gebruiker 
weet dat het zogenaamde door- 
laden van programma’s nogal 
eens problemen oplevert. Het is 
bijvoorbeeld niet zonder meer 
mogelijk om, vanuit een pro- 
gramma, door middel van 
LOAD een ander programma te 
laden. Soms blijft de computer 
hangen, met name als het te la- 
den programma kleiner is dan 
het oorspronkelijk aanwezige 
programma. De volgende routi- 
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ne, die gebruik maakt van een 
paar trucs, maakt het doorladen 
van programma’s een klei- 
nigheid. 


CBM-64 en Vic-20 

10 printchr$(147);:rem scherm 
schoon 

20 opent,O:print’’toets program- 
manaam in: ’’;input#l,pr$ 

30 prini:print’’cassette of disk 
(c/dy” 

40 get deS:ifded()"'c’’and => 





TIPSENTRUCS — 


mde$<)’’d”’ then 
40 
50 if deS=’’c’’ thende$="',1” 
60 if deS§='d”’ thende$ =’’,8”’ 
70 close 1 
80 lo$ = chr$(147) +’’load”’ + 
chr$(34) + pr$ + chr$(34) + de$ 
90 printlo$;:poke631,19: 
poke632,13:poke198,2 


In deze routine hebben we me- 
teen afgerekend met het verve- 
lende vraagteken na elke 

INPUT-opdracht. Dit doen we 


door eerst een zogenaamd 
schermkanaal te openen en 
daarna vanaf dat schermkanaal 
te lezen. Als voorbeeld geven 
we: 


10 input a : rem input met 


-vraagteken 


20 open 1,0:input#l,a:close 1: 
rem input zonder vraagteken 


Vanaf nu kunt u dus in al uw 
programma’s gebruik maken 
van een INPUT zonder 
vraagteken. 


DY NAMISCHE TOETSEN 


De tweede truc die we in bo- 
venstaande routine toepasten, 


werkt iets gecompliceerder. We 
zorgen er namelijk voor dat on- 


LISTINGS VAN LEZERS 


ze computer ’denkt’ dat we een 
LOAD-instructie geven en daar- 
na op de RETURN-toets druk- 
ken. Kijkt u maar naar regel 80. 
Hierin printen we op het scherm 
een LOAD-instructie met daar- 
achter de programmanaam tus- 
sen aanhalingstekens — 
chr$4)-. Nu komt de eigenlijke 
grap: we maken gebruik van de 
registers 631, 632 en 198. In re- 
gister 198 houdt de computer 
bij hoeveel toetsen er zijn inge- 
drukt en nog niet afgehandeld. 
De ASCIl-waarden van deze 
toetsen worden bewaard in de 
registers 631 tot en met 640. We 
zetten 198 op 2, zodat de com- 
puter ’denkt’ dat we twee toet- 
sen hebben ingedrukt. De 


ASClIl-waarden van deze toetsen 
(home’ en RETURN’, respec- 
tievelijk 19 en 13) zetten we in 
631 en 632. Na het beéindigen 
van het programma vindt de 
computer dus nog iets in de 
toetsenbordbuffer. Eerst wordt 
door middel van ’home’ de cur- 
sor boven in het scherm gezet 
(op de regel met de laadinstruc- 
tie) en daarna wordt er als het 
ware op RETURN gedrukt, zo- 
dat de computer de regel gaat 
uitvoeren. Het gevolg is dat het 
door ons gevraagde programma 
wordt ingeladen. 


Het beste uit POSTBUS 9194. De programma’s die in deze rubriek worden geplaatst, worden beloond met 50 guiden. Voorwaar- 
de is dat ze origineel zijn. Inzenders vrijwaren de redactie van plagiaat. De Fai bij voorkeur inzenden op schijf of cas- 


sette, zodat we zeker weten dat ze ‘lopen’. Gedrukte programma’s moeten in 


elk geval van characterstrings in plaats van 


besturingstekens zijn voorzien. De beste pene uit deze rubriek kunnen in pel komen om door COMMODORE DOS 
-be t 


SIER in samenwerking met een software 


rijf commercieel op de markt te worden gebrac 


. In dat geval staat de auteur alle 


rechten van het programma af aan Commodore Dossier in ruil voor een wettelijk geregeld deel van de opbrengst. 


HOGE RESOLUTIE 


Een machinetaalprogramma van 
Sybert Stroeve uit Deventer, dat 
het werken in Hoge Resolutie 
makkelijk maakt. Het definiéren 
van achtergrondkleur en teken- 
kKleur, punten en lijnen tekenen 


100 
110 
120 
130 
140 
150 
160 


en het terugkeren naar het nor- 


male tekstscherm, het hoeft alle- 


maal geen probleem te zijn. 


Hoe de functies werken wordt 
duidelijk gemaakt in de REM- 


Statements van het Basic- 
gedeelte van de listing hieron- 
der. Dat Basic-programma 
plaatst de machinecode in het 
geheugen van $c680 tot en met 
$925. 


LEM KKKKKKAKKKKK KKK KK KKK KKKKKKKKKKK CSHLift>/<spatie>dcl 
rem xxxxxkxxhoge resolutiekxx*xx*x*«x*«<shift>/<spatie>84 
rem oO odo ook ikke shift>/<spatie>dd 
rem<shift>/<spatie>0d 

rem programmeur:<shift>/<spatie>62 
rem sybert stroeve<shift>/<spatie>5e 


Nota Bene: een notitie als 
*sys50816,achtergrond, teken- 
kleur’ betekent dat in plaats van 
’achtergrond, tekenkleur’ twee 
getallen tussen 0 en 15 moeten 
worden ingevuld. 


rem kKoperwiek 10<shift>/<spatie>7d 

rem 7423 ea deventer<shift>/<spatie>3c — 
rem<shift>/<spatie>3b 
rem 
rem¢shift?/<spatie>47 
ren commando’s<shift>/<spatie>2) 

rem <shift>/<spatie>53 
rem<shift>/<spatie>69 

rem sys50816,achtergrond,tekenkleur<shift>/<spatie>51 
rem Kleur: O-15<shift>/<spatie>13 

rem functie : veeg hires schoon,<shift>/<spatie>98 

rem geeft het een Kleurtje en gaat<shift>/<spatie>c4 
rem er naar toe.<shift>/<spatiered 

rem tttt+++tttttt+tettt++t+t+t++t+tt+(shift>/<spatie>87 
rem sys50844¢,achterkleur,tekenkleur<shift>/<spatie>9e 
rem Kleur: O-15<shift>/<spatiedde 

rem functie : geeft hires een Kleur-<shift>/<spatie>84 
rem tje en gaat er naar toe.<shift>/<spatie>dfc 

rem ttt+ttt+tttttt+ttt+ttttt+tt++tt++++ (shift) /<spatie>fi 
rem sys 50891<shift>/<spatie>be 

rem functie : naar hires<shift>/<spatie>dc3 


170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 


<shift>/<spatie>dic. 
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370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
4380 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
1000 
1010 
1020 
1030 
1040 
ql=a 
1050 
qr=a 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
i140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 





VEM FEFEFHEFE FETE FETE FTE HT +++++4++++(shift> /<spatie>d7 
rem sys 50923<shift>/<spatie>96 
rem functie : naar het normale<shift>/<spatie>6é7 
rem tekstscherm.<shift?/<spatie>6f 
KEM FHt+tsettttttttttttt+tttttetttttt+ ishift> /<spatied3f. 
rem sys 51065,x,y,s<shift>/<spatie>3a 
rem functie : tekent het punt (x,y)<shift>/<spatie>33 
rem indien 0<s<256 en veegt het<shift?/<spatie>72: 
rem punt (x,y? weg als s=0.<shift>/<spatie>04 
rem ++4+4+4+444+4+444+4+44+44+4+4+4+4+44+4+4+4+4+4+4+4++¢5shift> /Cspatied69 
rem sys 51098,xl,y1,x2,y2,s<shift>/<spatie>4b 
rem functie : teKent een lijn van<shift>/<spatie>01 
rem punt (xi,yl) naar punt (x2,y2).<shift>/<spatie>56 
rem s=O suit , O¢s¢256 :aan<tshift>/<spatie>5Sc 
rem<shift>/<spatie>70 
rem <shift>/<spatie>85 
rem¢shift>/<spatied9f 
rem bit map : $6000-S7fff<shift>/<spatie>df2 
rem color memory : $5cO0-S5Sfff<shift>/<spatie>deS 
rem<shift?/<spatie>dbd 
YON oo - eee Re ee Rn ee mn a a ee <shift>/<spatied9ya 
rem<shift>/<spatie>c9 
rem<shift>/<spatie>c3 
rem lader<shift>/<spatie>38a 
for i= 50816 to 51493<shift>/<spatie>d2f 
read qps<shift>/<spatie>5Sd 
qis=left$(Cqp$s,1l)d:qrs=right$(qps, ld<shift>/<spatied27 
ql=val(gql$):if ql=0 and gl1$<>"O"then 
sc(ql$)-55<shift>/<spatie>31i 
qr=val(gr$):if gr=0 and qr$<>"0" then 
sc(gr$)-S55<shift>/<spatie>9b 
qp=qlxl6+qr:poke i,qp<shift>/<spatie>45 
next i:end<shift>/<spatie>5b 
rem data hoge resolutie<shift>/<spatiedec 
data a9,00,85,fb,a9,60,85,fc,a9,00<shift>/<spatie>96 
data a0,00,91,fb,c8,d0,fb,a6,fc,eO0<shift>/<spatie>96 
data 7£,£0,05,e6,fc,4c,8a,c6,20, fd<shift>/<spatie>£2 
data ac,20,9e,b7,86,fd,20,fd,ae,20<shift>/<spatie>ce 
data 9e,b7,8a,0a,0a,0a,0a,05, fd,a2<shift>/<spatie>c5 
data 00,86,fb,a2,5c,86,fc,a0,00,91<shift>/<spatieda2 
data fb,c8,d0,fb,a6,fc,e0,5f,f0,05<shift>/<spatieddd 
data e6,fc,4c,b9,c6,ad,02,dd,09,03<shift>/<spatie>21 
Gata 8d,02,dd,ad,00,dd,29,fc,09,02<shift>/<spatie>47 
data 8d,00,dd,a9,78,8d,18,d0,ad,11<shift>/<spatie>38 
data d0,09,20,8d,11,d0,60,ad,02,dd<shift>/<spatie>7b 
data 09,03,8d,02,dd,ad,00,dd,29,fc<shift>/<spatie>64 
data 09,03,8d,00,dd,ad,11,d0,29,df<shift>/<spatie>d1if 
data 8d,11,d0,a9,14,8d,18,d0,60,20<shift>/<spatied1f 
data fd,ae,20,eb,b7,86,fb,8a,29,f8<shift>/<spatie>15 
data 85,b7,a9,28,85,ba,a9,00,85,b9<shift>/<spatie>79 
data 85,bb,85,bc,a0,08,46,b7,90,0d<shift>/<spatie>3b 
data a5,bb,18,65,ba,85,bb,a5,bc,65<shift>?/<spatie>41 
data b9,85,bc,06,ba,26,b69,88,d0,e8<shift>/<spatie>59 
data a9,60,18,65,bc,85,bc,a5, fb, 29<shift>/<spatieda8 
data 07,18,65,bb,85,bb,a9,00,65,bc<shift>/<spatie>da 
data 85,bc,a5,14,29,f8,18,65,bb,85<shift>/<spatie>bl 
data bb,a5,15,29,01,65,bc,85,bc,a9<shift>/<spatie>bs 
data ff,45,14,29,07,aa,e8,a9,00, 38<shift>/<spatie>84 
data 2a,ca,d0,fc,85,fd,a0,00,60,20<shift>/<spatierde2 
data Ob,c7,20,fd,ae,20,9e,b7,8a,f0<shift>/<spatie>90 
data 07,b1,bb,05,fd,91,bb,60,a9,ff<shift>/<spatiedes 
data 38,e5,f0d,85,fd,bl,bb,25,f£d,91<shift>/<spatie>r£2 
data bb,60,20,fd,ae,20,eb,b7,86,02<shift>/<spatie>8e 
data a5,14,85,03,a5,15,85,04,20,fd<shift>/<spatie>c8 
data ae,Z0,eb,b7,86,fb,ad,14,a5,15<shift>/<spatie>ba 
data 20,91,b3,20,0f,bc,a4,03,a5,04<shift>/<spatiedda 
data 20,91,b3,20,53,b8,20,2b,bc,85<shift>/<spatie>53 
data fe,20,58,bc,20,aa,b1,8c,34,03<shift>/<spatie>25 
data 8d,35,03,a9,00,ad,fb,20,91,b3<shift>/<spatie>37 
data 20,0f,6c,a9,00,a4,02,20,91,b3¢shift>/<spatie>Ob 
data 20,53,b8,20,2b,bc,8d, 36,03, 20<shift?/<spatie?75 
data 58,bc,20,aa,b1,8c,37,03,20,91<shift>/<(spatie>15 
data b3,20,c7,bb,ac,34,03,ad,35,03<shift>/<spatie?15 
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1480 data 20,91,b3,a9,5c,a0,00,20,5b,be<shift>/<spatie>12 
1490 data £0,02,10,1a,ad,.37,03,8d,38,03<shift>/<spatie>0b 
1500 data a9,00,8d,39,03,ad, 34,03, 8d, 3a<shift>/<spatie>74 
1510 data 03,ad,35,03,8d,3b,03,4c,45,c8<shift>/<spatie>dc 
1520 data ad,34,03,8d,38,03.ad,35,03,8d<shift>?/<spatie?53 
1530 data 39,03,ad,37,03, 8d, 3a,03,a9,00<shift>/<spatie>r2e 
1540 data 8d,3b,03,a9,00,8d,e0,cf,8d,el<shift>/<spatie>ddf 
1550 data cf,18,ad,39,03,6a,8d,e3,cf,ad<shift>/<spatierda 
1560 data 38,03,6a,8d,e2,cf,20,fd,ae,20<shift>/<spatie>cé 
1570 data 9e,b7,8e,e4,cf,a5,03,85,14,a5<shift>/<spatie>80 
1580 data 04,85,15,.a6,02,20,11,c7,ad,e4<shift>/<spatie>fft 
1590 data cf,20,83,c7,ad,e0,cf,cd,38,03<shift>/<spatie>39d 
1600 data d0,09,ad,e1,cf,cd,39,03,d0,01<shift>/<spatie>9b 
1610 data 60,a5,fe,85,b7,ad,36,03,85,b8<shift>/<spatie>9e 
1620 data 18,ad,3a,03,6d,e2,cf,8d,e2,cf<shift>/<spatie>8e 
1630 data ad,3b,03,6d,e3,cf,8d,e3,cf,actshift>/<spatie>8c 
1640 data e2,cf,20,91,b3,20,c7,bb,ac, 38<shift>/<spatie>b7 
1650 data 03,ad,39,03,20,91,b3,a0,00,a9<shift>/<spatie>dab 
1660 data 5c,20,5b,bc,¢c9,01,f0,16,38,ad<shift>/<spatierd3 
1670 data e2,cf,ed,38,03,8d,e2,cf,ad,e3<shift>/<spatie>29 
1680 data cf,ed,39,03,8d,e3,cf,4c,f8,c8<shift>/<spatie>49 
1690 data ad,39,03,cd,35,03,d0,08,ad,38<shift>/<spatie>4f 
1700 data 03,cd,34,03,f0,04,a0,00,84,b7<shift>/<spatie>77 
1710 data ad, 38,03.cd,37,03,f0,04,a0,00<shift>/<spatie>09 
1720 data 84,b8,a5,b7,f0,18,30,09,e6,03<shift>/<spatie>63 
1730 data d0O,12,e6,04,4c,14,c9,38,a5,03<shift>/<spatiedif 
1740 data 69,01,85,03,a5,04,e9,00,85,04<shift>/<spatie>13 
1750 data 18,a5,02,65,b8,85,02,ee,e0,cf<shift>/<spatie>06 
1760 data d0O,03,ee,e1,cf,4c,65,c8<shift>/<spatie>40 


ETIKETTEN 


Een programma om etiketten af regels per afdruk’ en het ’aantal _regel van de printer kunnen. geten zijn adres te vermelden. 


te drukken van Arthur Kluit- afdrukken’ spreken voor zich- ’Verticale afstand tussen de eti- | Wij hopen dat hij dat alsnog 
mans uit Haaren in Noord- zelf. Met ’Maximaal afdrukken  ketten’ slaat op de regels tussen _ wil doen in verband met zijn 
Brabant. Het programma stelt achter elkaar’ bedoelt de maker _ twee etiketten. rechtmatige beloning. 

een viertal vragen. Het ’aantal het aantal afdrukken die op een _-Helaas is de heer Kluitmans ver- 


ETIKETTEN 


Fem bekeekekekeeeekcekekexecxeeee (shi it>/Cspatiedad 
rem *xx etiketten drukken zkkx<Cshift>/<spatie>9b 
rem xxx door arthur kluiltmans ***<shift?/<spatie>cd 
rem xxx haaren (n.b.>) kkxtshift>/<spatied90 
rem dd Oddo (shift>/<spatiedal 
poke53280,0:poke53281,0:printchr$(14)ichré(147)<shift>/<spatie>91 
printtab(7)ichr$(18)3"<<< ETIKETTEN DRUKKEN >>>"schr$(146)<shift>/<spatie)14 
print:print:input"Aantal regels per afdruk"sreg<shift>/<spatie?ric 
print:input*Aantal afdrukken: "s;afd<shift>/<spatie>94 
print:input"“Maximaal afdrukken achter elkaar:”";max<shift>/<spatie>90 
print:input"Vertikale afstand tussen etiketten:"iva:print<shift>/<spatie>7a 
sp=int(80/max)<shift>/<spatie>ff 
print"LET OP !! Een regel mag max."ssp<shift>/<spatie>c9 
print"karakter(s) bevatten."“:print<shift>/<spatie>6él 
fora=1to2000:nexta:printchr$(147):print:print<shift>/<spatie>45 
dimkar$(1000):t=1:z=0:forr=itoreg<shift>/<spatie>64 
print"Regel"sr;"==> "3<shift>/<spatie>27 : 
ift<lthent=1:z=O<shift>/<spatie>de 
getkar$(t):ifkar$(t)=""“theni7<shift>/<spatie>11 
ifkars(t)=chr$(13)thenprint:print:t=t+1:z=O:goto24<shift>/<spatie>le 
printkar$(t);3<shift>/<spatie>9f 
ifkar$(t)=chr$(20)thent=t-2:z2=z+2<shift>/<spatie>5da 
g=z+1:ifz>spthen:print:print:printi:print’ De recel is te lang [!! :t=t-a2ti:z=0 
:gotol6<shift>/<spatie>da3 
23 t=ttil:gotol7<shift>/<spatie>8b 
24 nextr<shift>/<spatie>dc8 
25 printchr$(147):print:print:print"Wilt U een proefdruk <j/n>: "3<shift>/<spati 
e>84 
26 getpr$:ifpr$=""then26<shift>/<spatie>lb 
27 printchr$(157)sprss<shift>/<spatie>51 
28 ifpr$="“n"orpr$="j"thengoto36<shift>/<spatie>08 
29 goto26<shift>/<spatie>90 


WOnNAU BR WOM Ko 
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print:print:print"Is de proefdruk goed <j/n>: “i<shift>/<spatie>5b 

getprs:ifprs=""“then3l<shift>/<spatie>18 

printchr$(157):pr$i<shift>/<spatie>éa 

ifpr$="n"thenrun<shift>/ (spatie>5d 

ifprS="j"thenpr$="":goto36<shift>/<spatie>df2 

goto3l<shift>/<spatiedas 

print:print:print:print"Druk een toets voor afdrukken!!"<shift)>/<spatie>dca 

Betst$:ifsts=""then37<shift>/<spatie>24 

goto4d5<shift>/<spatie>ae 

print:print:print"Wilt U nog meer etiketten afdruk- Ken “j/n>: “s<shift 
?/<spatie>da3 

getma$:ifma$=""then4d0<shift>/<spatie>29 

printchrs(157)smasi<shift>/<spatie>éd 

ifmas="j"thenrun<shift>/<spatie>5c 

ifma$="n"thenclosel:end<shift>/<spatie>f& 

gotodO<shift>/<spatieral 

rem *xx proefdruk + afdrukken xxx<shift>/<spatie>8so 

t=l:forr=ltoreg:wrs(rd=""<shift>/<spatie>9d 

ifkar$(t)<>chr$C 13) then49<shift>/<spatierel 

t=tti:nextr:goto5l<shift>/<spatie>44 

wes (rdewrs(r)+kars(t)<shift>/<spatie>00 

t=ttil:goto47<shift>/<spatie>ab 

openl,4,7:ad=afd:mx=max<shift>/<spatie>99 

ifprs="j "thenafd=1<shift>/<spatie>06 

forr=ltoreg<shift>/<spatie>9i 

ifafd<maxthenmax=afd<shift>/<spatie>ib 

fora=ltomax<shift>/<spatie>84 

print#l,wrs(r)ispc(sp-len(wrs(r)));:nexta:print#i<shift>/<spatie>32 

nextr<shift>/<spatieded 

ifva=Othen60<shift>/<spatie>85 

forv=ltova:print#l:nextv<shift>/<spatieral 

afd=afd-max<shift>/<spatie>71 

ifafd<=Othen64<shift>/<spatie>dél 

ifafd>maxthen53<shift>/<spatie>b2 

gotod3<shift>/<spatie>bo 

ifprs="j"thenpr$="":max=mx:afd=ad:closel:goto30<shift>/<spatie>3a 

goto39<shift>/<spatiedc2 


HUISRAAD INVENTARIS 

Van Henri Schuerwegen uit Put- boedel. Het kan bijvoorbeeld 

te in Belgié ontvingen we het van pas komen voor de inboe- 
volgende programma dat een delverzekering of ter controle na 
keurige inventaris maakt van de inbraak en diefstal. 


10 printchr$(147)<shift>/<spatie>67 

90 clr<shift>/<spatie>cé& 

100 dima$(100),b$(100),c# (100) ,d$(100),e$(100),£$¢€100),g$¢(100),h$¢100),1$(100)<s 
hift>/<spatie>b7 

110 dim do$(24):forx=1to24:do$(x)=dos(x-1)+chr$(17):next<shift>/<spatie>c2 

120 rvS=chrs(18):of f$=chr$(146)<shift>/<spatie>33 

130 printchr$(147):printrv$s" hwuisraadqdinventar ios "Cshift>/<sp 
atie>d7a 

132 print:print:print"ontworpen door : henri schuerwegen c 84"<shift>/<spatie>26 
136 z=O:printtab(10)do$(2)rv$"menu"<shift>/<spatie>57 

140 printdo$(2).rvs"1."off$" invoeren gegevens" <shift>/<spatie>51 

145 printdos(lorvs"2."“offS"aijzigen gegevens" <shift>/<spatie>c5 

150 printdos(l)rv$"3."off$" save data" <shift>/<spatie>57 

155 printdos(l)rvs"4."offS" laad data”<shift>/<spatie>54 

160 printdos$(1)rv$"5."offs" uitprinten s/p"<shift>/<spatie>48 

169 printdo$(l)rvs"6."off$" einde “<shift>/<spatie>33 

180 printchr$(19)do$(22):printtab(10)chr$(18)"uw keuze a.u.b."chr$(146);<shift>/ 
<spatie>dda 

182 inputz:ifz<lorz>6then180<shift>/<spatie>d£3 

188 on zgoto600, 2000, 3000, 4000,5000, 6000<shift>/<spatie>de2 

600 gosub 1010<shift>?/<spatie>d7 

610 goto 1195<shift>/<spatieded 

1000 printchrs(147):printtab(10)"invoer van gegevens"<shift>/<spatie>f0 

1002 fori=ltol9:printtab(102"-";:next<shift>/<spatie>88 

1005 return<shift>/<spatie>60 

1010 gosub 1000<shift?/<spatie>7a 
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1020 printchr$(19)dos(5)rve"toestel "chr$(146)":"<shift>/<spatie>0c 









1030 printchr$(18)"merk "chr$(146)":"<shift>/<spatieraa 
1040 printchrs(18)"type "chr$(146)":"<shift>/<spatie>bsS 
1050 printchrs$(18)"fabricagenr. "chr$(146)":"<shift>/<spatie>cb 
1060 printchr$(18)"verkoper "chr$(146)":"<shift>/<spatie>9b 
1080 printchr$(18)"faktuurnr “chrs(14d6)":"<shift>/<spatie>f3 











1090 printchr$(18)"aankoopdat "chr$(146)":"<shift>/<spatie>fb 

1100 printchr$(18)"bedrag incl t"chrs(146)":"<shift>/<spatie>9a 

1120 printchr$(18)"bijzond.Kenm. “chr$(146)":"<shift>/<spatieae 

1130 printtab(20)chrs(18)chr$¢(17) "nummer: "Chr$(146)<shift>/<spatie>b3 
1140 printtab(03);dos(2)rv$"h uisraa dinventar i s*<shift>/<spatie 
251 

1142 printdo$(3)"ontworpen door : “chrs(18)"henri schuerwegen c84"<shift>/<spat 
ie>02 

1180 return<shift>/<spatie>16 

1195 kskt+l:i=k<shift>/<spatie>Oc 

1197 gosub 1198:goto1195<shift>/<spatie>9a 

1198 gosub8000: printchr$(19)do$(15);tab(35)3i<shift>/<spatierad 

1200 printchr$(19)do$(5);tab(14)s:inputas(id<shift>/<spatiere5 

1204 if a$Ci)d="x"thenk=k-i1:goto 130<shift>/<spatie>80 

1210 printtab(14)3:inputb$Ci)<shift>/<spatie>02 

1211 if b$Cid=""thenb$(id="O"<shift>/<spatie>a3 

1220 printtab(14);:inputcsCid<shift>/<spatie>7d 

1222 if c$(i)d=""thenc$(i)="0"<shift>/<spatierde 

1230 printtab(14)s:inputds$(i)d<shift>/<spatie>70 

1232 if d$Cid=""thend$(id="O0"<shift>/<spatie>c8 

1240 printtab(14)3:inpute$(id<shift>/<spatie>67 

1242 if e$Cid=""thenes(i)d="O"<shift>/<spatierc2 

1250 printtab(14)3:inputf$Cid<shift>/<spatie Se 

1252 if f$Ci)d=""thenf$(id="O"<shift>/<spatie>fc 

1260 printtab(14)3:inputg#(1l)<shift>/<spatie>Sl 

1262 Lf g&Clo="“theng#(1)="O"<shift>/<spatie>fs 

1270 printtab(14);:inputh$Cid<shift>/<spatie>44 

1272 1f£ h$Cid="“thenh$C(id="O"<shift>/<spatie>red 

1290 printtab(14);:inputi$Cl)<shift>/<spatie>bs 

1292 if i$Cid="“"thenisCid="-"<shift>/<spatie>08 

1294 return<shift>/<spatie>85 

1300 goto 1195<shift>/<spatie>94 

2000 printchrs$(147)<shift>/<spatie>rba 

2010 printtab(O8)"“wijzigen van een record” :fori=ito23:printtab(08)"-"s:next<shif 
t>/<spatiedac 

2015 i=O<shift>/<spatie?13 

2020 printchr$(19)do$(4)"welk nummer wijzigen :"3:inputi<shift>/<spatie>6b 

2022 if i=O then 130:ifi>kthen2020<shift>/<spatie>91 

2040 printchr$(147):printtabCO8)chr$(18>"wijzigen van een record": gosub1020 :gos 
ubli98<shift>/<spatied4f 

2060 gotol30<shift>/<spatierbft 

3000 printchr$(147):printtab(08)“save data op cassette of disk "€shift>/<spati 
eref 

3010 for i=1to29:printtab(08)"-"s:next<shift>/<spatie>raZ 

3012 printchr$(19)do$(3)<shift>2/<spatie>85 

3015 input"cassette (1) of disk(2)"sa<shift>/<spatie>0e 

3020 if ad>dland a<>2then3030<shift>/<spatie>47 

3030 if a=2 then goto3070<shift>/<spatie>bd 

3035 printchr$(19)do$(6)<shift>/<spatie>9f 

3040 input"welke file naam: "3f$%:openl,1,1,f#<shift?>/<spatie>82 

3050 goto 3080<shift>/<spatie>63 

3065 printchrs(19)do$(3)<shift>/<spatie>b8 

3070 input“welke file naam: ";f$:open!,8,2,"@0:"+f$+"s,w"<shift>/<spatie>f4 

3080 printdo$(4)"ik schrijf data weg !!!!!"<shift>/<spatie?ae 

3081 print#i,k:fori=itok:print#1,a$¢i):print#1l,b$(i)d:print#1,c$Cid<shift>/<spati 
e>c6 

3082 print#1,d$Ci):print#1,e$C(i):print#1,f£$Ci)d:print#1,g$Cid:print#1,h$Cid<shift 
>/<spatiera7 

3086 print#1,i$Ci)d:nexti<shift>/<spatie>53 

3092 closel:gotoi30<shift>/<spatie>O8 

4000 printchr$(147):printtab(05)"laad data van cassette of Gisk”<shift>/<spatie 
291 

4005 for i=1to30:printtab(05)"_"s:next<shift>/<spatie>50 

4007 a=O<shift>/<spatie>6b 

4010 printchr$(19)do$(4)"cassette(1) of disk (2)"3:inputa<shift>/<spatie>10 
(4014 if at>landa<>2then4000<shift>/<spatie>25 

4018 if a=2then4070<shift>/<spatie>53 
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4020 printdo$(3)"welke file naam :"3:inputf$:openil,1,0,f£$<shift>/<spatie)dda 
4030 goto 4080<shift>/<spatie>34 

4070 printdo$(3)"welke file naam : $3: inputfts:openl,§,2,"0:"+f$+"s,r"<shift>/<spa 
tie>33 

4080 printdoS(3)"ik lees data !!!!! even geduld !!!!"<shift>/<spatie>54 

4084 input#l,k:fori=ltok<shift>/<spatie>b7 

4086 input#l,asCid,bSCid,c$Ci)d,d$Ci),e$Ci),£$Ci)d,g$Ci),h$Ci),i$Ci)<shift>/<spati 
eodd 

4090 next i:closel:gotol30<shift>/<spatie>14 

5000 printchrs(147):printchrs(18)"u i t printe n, <shift>/<spatie>86 
5010 printdo$(2>"output naar : "rvS"scherm"off$" (1) "yvS"printer”offS" (2)"<shi 
ft>/<spatied7a 

5020 input b<shift>/<spatie>48 

9030 if b<o>land b<>2then5000<shift>/<spatie>30 

5040 if b=2 then goto 5500<shift>/<spatie>c4 

9050 printchrs(147><shift>/<spatiedc4 

5055 printtabClOdchrs(18)"u it prin te n*<shift>/<spatie>43 

9060 gosubiO20<shift>/<spatie>59 

5070 for i=ltok<shift>/<spatie>79 

5079 printchr$(19)do$(15);tab(35); i<shift>/<spatie>7c 

5080 printchrs$(19)dos(5)itabliddiasCi><shift>/<spatie>25 

9082 printtab(14)sb$Cid<shift>/<spatie>ca 

5084 printtab(1l4)icsCid<shift>/<spatie>cd 

5086 printtab(14);dsCid<shift>/<spatie>dc8 

5090 printtab(14)se8(i)<shift>/<spatie>£5 

S092 printtab(14);f$Cid<shift>/<spatie>foO 

5094 printtab(14):g$Cid<shift>/<spatie>f£3 

5096 printtab(14)3s h$Ci)<shift>/<spatie>f2 

5098 printtabC14);i$Cid<shift>/<spatie>fl 

5100 printchr$ (17); "druk “chr§ (18) "return“chrs$(146)<shift>/<spatie>85 

5105 get y$<shift>/<spatie>3e 

5108 if yS=chr$(13)then goto 5200<shift>/<spatie>4de 

S110 goto 5105<shift>/<spatie>éd 

9200 gosub 8000:next<shift>/<spatie>79 

5250 goto 130<shift>/<spatie>2d 

5500 open3, 4<shift>/<spatieddd 

5505 ts=chr$(16)<shift>/<spatie>97 

5510 print#3,chr$(18)"huisraadinventaris"”::print#3,chr$ (146) 3<shift>/<spatie 
285 

5511 print#3," ontworpen door << henri schuerwegen >> c 84"<shift>/<spati 
e>34 

5512 print#3,chr$(10)<shift>/<spatie>dd 

5515 fori=ltok<shift>/<spatie>3a 

































































5550 print#3,ts"OOtoestel :"3aSCids:print#3,t¢"44merk 2"sbSCid<shif 
t>/<spatie>df8& 

5560 print#3,t$"O00type :"3cSCids<shift>/<spatie>57 

5570 print#3,ts"44fabricagenr. :"3;d$€i) :print#3,t$"O00verkoper s"seSCids<shif 
t>/<spatie>99 






S575 print#3,t$"°44faktuurnr. 2"3£8Cid<shift>/<spatie>56 

5580 print#3,t$"O0aankoopdat :"“;g$Cids:print#3,t$"44bedrag inc t :"3h$Cid<shift 
>/<spatiedf¢ 

5585 print#3,tS"OObijzondere opm:"3i8$Ci)<shift>/<spatie>69 

5587 ford=1to80:print#3,""i:next d<shift>/<spatie>96 

5590 print#3,chr$(10):next<shift>/<spatie>3b 

5595 close3:gotol30<shift>/<spatie>ddc 

6000 printchr$(147)"heb je data weggeschreven (j/n) “;:input w<shift>/<spatie 
rez 

6010 if wS<>"n"and wS<>"j"then 6000<shift>/<spatie>dec 

6020 if wS$="n"thengoto 3000<shift>/<spatie>ba 

6030 end<shift>/<spatie>19 

8000 In$=" "<shift>/<spatie>deb 

8001 lps=" “Cshift>/<spatie>d4d 

8010 printchrs(19)do$(5):tab(14):ln$<shift>/<spatie>bo 

8020 printchr$(19)do$(6)3tab(14)31ln$<shift>/<spatie>dad 

8030 printchrs(19)do8(7);tab(14);ln$<shift>/<spatie>aé 

8040 printchr$(19)doS(8):tab(14):lnS<shift>/<spatie>9f 

8050 printchrs(i9)do$(9)stab(14)sIln$<shift>/<spatie>384 

8060 printchr$(19)dos(10);:tabli4):1n$<shift>/<spatie>b2 

8070 printchr$(19)do$(11)3tab(14):lns<shift>/<spatie>49 

8080 printchr$(19)do#(12):tab(14);1n¢<shift>/<spatie>5c 

8090 printchr$(19)do$(13)itab(14)3in$<shift>/<spatie>57 

8100 printchr#(19)do%(i14);tab(35);1ln$<shift>/<spatie>éd 

8300 returni<shlfit>/<spatiedc2 
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LISTINGS VANLEZERS 


HEADER-LEZER 


Een handigheidje van Edwin 
Schalk uit Bavel. Het program- 
maatje voor de Vic-20 leest de 


header van een tape uit zonder 
het programma te laden. Elke 
Vic-20 bezitter hoort het in huis 


te hebben volgens onze 
programma-commissie. 


1 PRINTCHRS (147)CHRS(18)CHRS$(144)"(C) SOFT-SOFTWARE 1985”CHRS(142)CHRS(8) :POKE36 


879,25 
2 PRINT:PRINT’ 
RINT 


HEADER-READ DOOR: ":PRINT:PRINT“ 


CLR: A$=MIDS(STRS(256xPEEK(0)),2)+" BYTES VRIJU":SYS63680 
LA=PEEK(831)-PBEEK(829)+(PEEK(832)-PEEK(830))x256_ 
IFLA/256>PEEK(CO) THENPRINT: PRINT: PRINTCHR$(144)"TE WEINIG GEHEUGEN!” : END 

: “;:SYS63448:PRINT; :PRINTCHR$(13)"LENGTE: "LA" BYTES” 
BE=256*xPEEK(830)+PEEK (829): EN=256xPEEK(832)+PEEK(831) : 


PRINTCHR$ (144) “NAAM 


PRINT: PRINT" BEGIN 


READY. 


:"3BE:PRINT:PRINT"EINDE 


ADMINIESTEN 


Fraai werrkstuk van de heer 
Niesten uit Heemskerk. Het 
gaat hier om een puur boek- 
houdprogramma en niet om een 
zogenaamd budget-programma, 
legt de heer Niesten uit. Het is 
geschreven voor gebruik met de 
C2N datasette en de MPS-802 
printer. Gebruikers van andere 
printers en/of een diskdrive zul- 
len het programma voor eigen 
gebruik moeten aanpassen. De 
listing is overzichtelijk genoeg 
om de plaats van ingrijpen dui- 
delijk te maken. 

Bij het OPSTARTEN van het 
programma wordt in het geheu- 
gen ruimte gereserveerd voor 40 
grootboekrekeningen met elk 16 
maal 4 geheugenplaatsen. De 
eerste 4 bevatten de vaste gege- 
vens zoals nummer, naam, sal- 
do en teller voor het aantal mu- 
taties. Dit zijn — met uitzonde- 
ring van de teller — ook de ge- 
gevens die in het cassettebestand 
kunnen worden opgeslagen. De 
overige 15 maal 4 geheugen- 
plaatsen per grootboekrekening 
zijn bestemd voor de mutaties 
die niet op cassette worden op- 
genomen. De mutaties moeten, 
voordat het programma wordt 


beéindigd, via de printer per 
grootboekrekening worden afge- 
drukt. Na het opstarten ver- 
schijnt het hoofdmenu dat zon- 
der meer voor zichzelf spreekt. 


De IN- EN UITVOER VAN 
EN NAAR CASSETTE spreekt 
ook voor zichzelf. Als u een 
vaste tape voor het bestand ge- 
bruikt, kunt u op de program- 
maregels 1610 en 1930 de tel- 
lerstand van het begin van het 
bestand invullen. Deze ver- 
schijnt dan op het scherm voor- 
dat u gaat inlezen of wegschrij- 
ven. Na de invoer wordt u voor 
de keuze gesteld of u met de 
oude saldi verder wilt of dat u 
deze op nul wilt stellen. 

Voor MUTATIES kunt u kiezen 
voor wijzigen/benoemen van 
grootboekrekeningen of het in- 
voeren van mutaties (betalingen 
en ontvangsten). De grootboek- 
rekeningen zult u in ieder geval 
bij eerste gebruik moeten benoe- 
men (maximaal 12 karakters). 
Daarbij bent u voor 4 rekenin- 
gen gebonden: 01= bank, 
02=giro, 39= kas en 40= tus- 
senrekening memo (correcties). 
Op deze 4 rekeningen vindt de 


:"3EN 


tegengestelde boeking plaats van 
elke mutatie die respectievelijk 
met B,G,K of M worden geco- 
deerd. Na elke mutatie ver- 
schijnt boven in beeld het saldo 
yan bank en giro na de laatste 
mutatie. Op deze manier is te 
controleren of de gegevens juist 
zijn ingevoerd, Als het aantal 
mutaties op een bepaalde groot- 
boekrekening de 15 dreigt te 
overschrijden, worden deze eerst 
op de printer afgedrukt voordat 
u verder kunt gaan. 

Het REKENINGSCHEMA 
wordt op het scherm zichtbaar 
gemaakt en kan daarna via een 
screendump-routine na het in- 
drukken van de F5 toets via de 
printen worden afgedrukt. 

De SALDIBALANS geeft via 
de printer netjes per grootboek- 
rekening de saldi en daarna de 
tellingen van de debet- en cre- 
ditkolom. 

Tijdens het invoeren van MU- 
TATIES kan het makkelijk zijn 
om na te gaan wat er inmiddels 
allemaal gemuteerd is, bijvoor- 
beeld om correcties te kunnen 
vaststellen. De geboekte muta- 
ties worden op het scherm zicht- 
baar en kunnen ook via de 


EDWIN SCHALK":PRINT:PRINT:P 


screendump-routine (F5) op de 
printer worden afgedrukt. 

Via de routine UITPRINTEN 
PERIODEMUTATIES wordt 
van elk van de 40 grootboekre- 
keningen een overzicht van de 
ingevoerde mutaties op de prin- 
ter afeedrukt (voor kenners: de 
grootboekkaart). In verband 
met de geprogrammeerde 15 
mutaties (maximaal) en de pa- 
piersoort die de samensteller 
van het programma ter beschik- 
king stond, is de papierlengte in 
regel 4560 geprogrammeerd op 
27 regels. In de kopregel per 
grootboekrekening wordt de 
naam vergroot afgedrukt. Oud 
en nieuw saldo worden eveneens 
automatisch vermeld en in de 
tellingen opgenomen. Deze rou- 
tine mag niet worden overgesla- 
gen omdat de mutaties dan niet 
in het cassette-bestand worden 
opgenomen. 


NB. Op het laatste moment ont- 
vingen we nog een correctie van 
de heer Niesten. In regel 2610 
moet aan het eind goto 2500 
staan. Bij intikken voor deze re- 
gel checksum even uitschakelen. 


19 el@=chr#(147) :yvé=chr#(18):rog$=chr$(146):do$=chr#C17):ups=chr#(145)<shift>/¢ 


spatie>7c 


1000 remxxxkkkkkkkkkkkekkk CoN programma van hes niesten,heemskerk xxxxKKXKKKKKK 


<shift>/<spatie>56 


LOLO rem KKKKKKKKKKKKAKKKKKKKKKK Openingsbeeld sCherin cxkKKKKKAKK KKK KKKKEKKE KER 


<shift>/<spatie>31 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
e>9c 


printcl$<shift>/<spatie>4d 
poke 53280,l:poke 53281,1<shift>/<spatie>39 
printtab( 12)" xxxxxkxkaxxxexe” (shift? /<spatie>2e 
printtab(12)"* adminiesten x"<shift>/<spatie?4li 
pr int tab(12)"xxxxKKKKKKKKKKK” 3d0S 3dos$3do$ido$idos;dos<shift?/<spatie?la 
printtab(13)"administratie"sdos<shift>/<spatie>65 
printtab(12)"familie niesten"sdo$<shift>/<spatie>15 
odats="1985"<shift>/<spatie>cb 
printtab(13)"boekjaar "right$ Codat$,4)}do$3do$;dossdos:dos<shift>/<spati 
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LISTINGS VAN LEZERS 













1120 printtabClO)"toets voor menu fl°<shift>/<spatie>d6éf 
1130 printtab(7)do$;"daarna even geduld a.u.b."<shift>/<spatie>dic 

1140 dim r$(40,15,3),0s$C€40):goto 1190<shift>/<spatie>i3 

1150 get kS:if ks=s"“then 1150<shift>/<spatie>7a 

1160 if kS=chr$(133)then goto 1300<shift>/<spatie>Ol 

1180 goto 1150<shift>/<spatie>di4d 

1190 for i=Oto 40<shift>/<spatie>48 

{200 for j=Oto 15<shift>/<spatie>S5da 

1210 yr$0i,j),0)=" “:e801,3,1)= “:r8C1,3,2)2="0.00° :r$(i,4,3)="0.00":058Ci)-—" 0. 
OO"<shift>/<spatie>62 : 

1220 next j:nexti:fr=freCO):goto 1150<shift>/<spatie>5a 

1300 rem KXXKKKKKKAKKKKAKKKKKKKKKK SChermbee]d menu *KKAKXKKAKKKKKKKAKKKKKKK 
exx¢Cshift>/<spatie>c5 * 

1310 print clS<shift>/<spatie>da9 

1320 printtab (10) °XxXxKKKKKKKKKKKKAKKKK” CShHIft>/<spatie>3f 

1330 printtab(10)"x* menu adminiesten *"<shift>/<spatie>59 

1340 printtab C10)” xx XKKRKRAKAKKKEKKKK" 505 50083 doSidosSido$<shift>/<spatie>3f 
1350 print“in- en uitvoer cassette";tab(36)"f1"3;do$<shift>/<spatie>48 

1360 print"invoer mutaties”;tab(36)"f£3"3doS<shift>/<spatie>36 

1370 print“overzichten";tab(36)"f£5"sdos<shift>/<spatie>5Sc 

1380 print"einde”;tab(36)°f7"3do$3do$ido$idos<shift>/<spatie>7e 

1390 print"wat is uw keuze ?"<shift>/<spatie>d3 

1400 get a$:if aS=""then 1400<shift>/<spatie>7d 

1405 if aS=chr$(139) then 5100<shift>/<spatie>7a 

1410 a=asclas)-132:if a¢i or add then 1400<shift>/<spatie>de9 

1420 on a goto 1430,2100,3000,5000<shift>/<spatie>ff 

1430 rem XXXKKKKKKKAKKKKKKKKKKK In- en uitvoer CASSETLE KKKKKKKKKKKKKKKKKKKK 
xxxCshift>/<spatie>53 

1500 printcl$;tab(5)rv$s" * in- en uitvoer cassette * “;ro$<shift>/<spatie>b3 
1510 print®=s=sss=sssssssss=ssseesssseeeseee========"3do$3dos;do$i;dos<shift>/ 
<spatie>7a 

1520 print” invoeren";tab(36>"f1"sdoS:print"uitvoeren”;tab(36)°f3"3doS<shift> 
/Cspatie>82 

1530 print”terug naar menu”3tab(36)"f£7"do$;do$;dos$;dos:print"wat is uw Keuze 
?"<shift>/<spatie>&64 

1540 get a$S:if aS=""then 1540<shift>/<spatie>07 

1550 a=asc(a$)-132:if a<l or a>4 ora=3 then 1540<shift>/<spatie>13 

1560 on a goto 1570,1900,1540, 1300<shift>/<spatie>62 

1570 LEM KKRKKKKKKKKKKKEKKKKKKKKEKKK INVOEL CASSETEE KKKKKKKKKKIKKEKKKKKKKEKEK 
kxx<shift>/<spatie>Sa 

1600 print cl$:print"het cassettebestand begint”<shift>/<spatie>54 

1610 print"op tellerstand .1.“;do$<shift>/<spatie>dd 

1620 print”als de teller goed staat toets dan f1°:do$3;do$3;do$;do$:do$;3do$;do$<¢ 
shift>/<spatie>99 

1630 get aS:if aS=""then 1630:a=ascla$)<shift>/<spatie>32 

1640 if asS=chrs$(133)then 1660<shift>/<spatie>63 

1650 if a$<>chr$(133)then 1630<shift>/<spatie>cc 

1660 openi,1,0,"adminiesten 1985"<shift>/<spatie>93 

1670 input#l,odat$<shift>/<spatie>23 

1680 for i=1 to 40<shift>/<spatie>7a 

1690 for k=0 to 2<shift>/<spatie>42 

1700 input#1,rs¢i,0,k)<shift>/<spatie>7e 

1710 next k:next i: closel<shift>/<spatie>3b 

1720 for i=1 to 40<shift>/<spatie>55 

1730 os$Cid=r$Ci,0,2)<shift>/<spatie>3a 

1740 next i<shift>/<spatie>0Ol 

1750 printdo$idos;°rekeningschema en oude saldi “<shift>/<spatie>0c 

1760 print”"zijn nu ingevoerd"i3do$;do$<shift>/<spatie>3c 

1770 print"“wilt u de beginsaldi “<shift>/<spatie>33 

1780 print”op nul stellen j/n*3:inputjn$<shift>/<spatie>dc5 

1790 if jn$="n"then 1850<shift>/<spatie>04 

1800 if jn$<>"j"then 1770<shift>/<spatie>dda 

1810 if jns="j"then print"even geduld a.u.b."<shift>/<spatie>03 

1820 for i = ito 40<shift>/<spatie>f0o 

1830 r$Ci,0,2)="0":os$Ci)="0.00"<shift>/<spatie>06 

1840 next i<shift>/<spatie>fc 

1850 print"“terug naar menu toets fi"<shift>/<spatie>d4 

1860 get as:if as=""then 1860<shift>/<spatie?49 

1870 if as Q>chyr$(133)then 1860<shift>/<spatie>dfa 

1880 goto 1300<shift>/<spatie>od4 

1900 rem KKKKAKKKAKKHIKKKKAKAKKKKKHKK ULEVOEr CASSEEEE KKKKKKHKKKKAKKKKAKEKKKKKK 
*xxx<shift>/<spatie>dad 

1910 print cl$<shift>/<spatie>c3 
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1920 print"“het cassettebestand begint"<shift>/<spatied>did 

1930 print“op tellerstand.u.";do%;dos<shift>/<spatie>34 

1940 print“als de cassette goed staat"<shift>/<spatie>0d 

1950 print"toets dan fi"<shift>/<spatie>65 

1960 get aS:if a$=""then 1960<shift>/<spatiedad 

1970 if a$<>chr$(133)then 1960<shift>/<spatie>07 

1980 opent,{,1,"adminiesten 1985"<shift>/<spatie>53 

1990 print#il,ndatS<shift>/<spatie>7f£ 

2000 for i=lto40<shift>/<spatie>) 3c 

2010 for k=Oto 2¢shift>/<spatie>03 

2020 print#1,r$C€i,0,k)<shift>/<spatie>23 

2030 next k:next i:closel<shift>/<spatie>7a 

2040 printdo$;dosi"“het nieuwe bestand is nu op":print"cassette opgenomen"<sh 
lft>/<spatied9¢4 

2050 printdo$;doS;"“terug naar menu toets fl"<shift>/<spatie>de3 

2060 get aS:if as=""then 2060<shift>/<spatie>05 

2070 if a$=chr$(133)then 1300<shift>/<spatie>d10 

2080 goto 2060<shift>/<spatie>rad 

Z100 rem XKXXKKKKKKKKKKKAKE KK KKK KKKAKKAKKK MULTELEN KKKAKKKKKKKKKKK KEK KKK KK KK 
xxkx<¢shift>/<spatie>c? 

2110 printcl$<shift>/<spatie>s84 

2120 printtabCl4)rv$s" * muteren * "“sro$<shift>/<spatied1f 

2130 print’ “3do$3dosidos<shift>/<spa 
tiedd7 

2140 print"benoemen/wijzigen rekeningnummers”;tab(35)"f1l"sdo$sdos<shift>/<sp 
atie>44 

2150 print”invoeren mutaties”;tab(35)"f3"sdo$idos<shift>/<spatie>11 

2160 print“terug naar menu"stabC35 "f7"<shift>/<spatie>79 

2170 get a$:if a$S=""then 2170<shift>/<spatie>73 

2180 a=asc(a$)-132:if a<! or add then 2170<shift>/<spatie>rde3 

2190 on a goto 2200, 2500, 2170, 1300<shift>/<spatie>f2 

2200 rem KKKKKKKKKKKKKKKKX benoemen/wijzigen rekeningnummers XxkXXXXXXKXKXKXK 
xkx<(shift>/<spatie>5c 

2210 printcl$<shift>/<spatie>18 

2220 print"xxbenoemen/wijzigen rekeningnummersxx"<shift>/<spatie>74 

2230 print” "“<shift>/<spatie>27 

2240 print "“nummer”;tab(36)"goed"<shift?/<spatie>red 

2250 print"(2pos)"stab(7)"welke naam"+tab(22)"nieuwe naam";tab(36)"fout"<shi 
f£t>/<spatie>fa 

2260 print"0O is “tab(7)"max.15 pos"stab(36)" g/f"<shift>/<spatie>71 

2270 print"stop"<shift>/<spatie>57 

2280 print’ ----"tabcs) -~ 3 ‘3tab(37)"---" 
<shift>/<spatie>dec 

2290 input nrS:n=val(nr$):if n=O00then2100<shift>/<spatie?94 

2300 if n>40 then 2290<shift>/<spatie>Za 

2310 if v$(n,0,1)*>" “then goto 23/70<shift2/<spatie>rbs 

2320 printtab(S)up$s:input na$<shift>/<spatie>rb! 

2330 printtab(2Z1)leftS$(na$,12)<shift>/<spatie>ce 

2340 printtab(36)up$;:input gf$<shift>/<spatie>bb 

2350 if gf$<>"g"then 2200<shift>/<spatie>éb 

2360 gosub 2950:r$(n,0,0)=nr$:r%(n,0,1)=left$(nas,12):goto 2200<shift>/<spati 
e>f5 

2370 printtab(6)up$; “bestaande”:printtab(6)"naam is":printtab(6)rs(n,0,1)<shi 
ft>/<spatie>3a 

2380 printtab(6)"wijzigen?j/n"s:input jns<shift>/<spatie>db 

2390 if jn$="n"then 2200<shift>/<spatie>raf 

2400 if jn$="j"then printtab(6)"naam wordt "sdo$:goto 2320<shift>/<spati e>65 
2500 LEM KKKKKKAKKKKKKKKEKAKKKAKKKAKKK Invoer mutaties KxXXKAKKKKKKAKKKKKKKKKKK 
*xxkxx<shift>/<spatie>67 

<shift>/<spatie>75 

2510 printcl$<shift>/<spatie>75 

2520 printtab(13)rv$s"invoer mutaties”sros<shift>/<spatie>f£6 

2530 print” “<shift>/<spatie>4f 

2540 print“so bank "r$(1,0,2)3:sb=val(r$(1,0,2))<shift>/<spatie>00 

2550 printtab(20)"so giro “r$(2,0,2):sg=val(r$(2,0,2))<shift>/<spatie?b9 
2560 printdes:"--------- ae eee oe eee: womnmmnme"<shift>/<spatie>87 
2570 print"rekeningnummer “<shift>/<spatie>82 

2580 input”“O0=stop “snr$:n=val(nr$):if n=O then 2100<shift>/<spatie>7e 
2590 if n>40 then 2580<shift>/<spatie>cc 

2600 if val(rs$(n,0,3))<15 then 2620<shift>?/<spatie?dl 

2610 bS="afdruk":print”":gosub 4550:r$(n,0,3)="0":0s$(n)=r$(n,0,2) :goto25000¢ 
shift>/<spatie>daz2 

2620 printtab(27)up$sr$(n,0,1)><shift>/<spatie>02 
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Wet 


2630 input*k/b/g/m “sbg$<shift>/<spatie>ddf 

2640 ifbgs<>"k” and bg$<>"b” and bg$<>"g" and bgo$<>"m" then 2630<shift>/<spat 
ieddd 

2650 input"datum C4 pos) "sdatS<shift>/<spatie>8b 

2660 input“omschrijving "“som$<shift>/<spatie>deb 

2670 input"bedrag (-)=ontv."sbe$<shift>/<spatie>f2 

2680 print:print"zijn deze gegevens juist?"“<shift>/<spatied0ol 

2690 print"j=fl n=f7"<shift>/<spatie>13 

2700 get a$:if a$=""then 2700<shift>/<spatie>86 

2710 if as=chr$(133)then gosub 2950:goto 2750<shift>/<spatiedad 

2720 if a$S=chr$(136)then print"“deze gegevens worden niet verwerkt"<shift>/<sp 
atie>27 

2730 print"voer ze opnieuw in”<shift>/<spatie>50 

2740 for z=0 to 500:next z:goto 2500<shift>/<spatie>20 

2750 if bg$="b"then sb=sb-val (be$):r$(1,0,2)=str$(sb)<shift>/<spatiedaf 

2760 if bg$="g"then sg=sg-val (be$):r$(2,0,2)=str$(sg)<shift>/<spatieorda 

2770 if bg#="k"then r$(39,0,2)=str#¢val(r$(39,0,2))-val (bes) )<shift>/<spatie>d3 
2780 if bg$="m"then r$(40,0,2)=str$(val(r$(40,0,2))-val (be$) )<shift>/<spatie>db 
2790 t=val(r$(n,0,3))+1<shift>/<spatie>6f 

2800 r$(n,t,0)=bg$:r$(n,t,1l)=dat$:r$(n,t,2)=om$:r$(n,t, 3)=bes<shift>/<spatie>9l 
2810 if bg$="k"thenp=val (r$(39,0,3))+1:r$(39,p,0)="k":r$(39,p, ld=dat$<shift>/ 
<spatie>fs 

2820 if bg$="k"then r$(39,p,2)=r$(n,t,2):r$(39,p, 3)=str$(val (bes) x-1)<shift>d/ 
<spatie>8b 

2830 if bg$="k"“then r$(39,0,3)=str$(val(r$(39,0,3))+1)<shift>/<spatie>d9 

2840 if bg$="“m"thenp=val (r$(40,0,3))+1:r$(40,p,0) =bg$:r$(40,p, 1) =dats<shift>/ 
<spatie>79 

2850 if baS="m"then r$(40,p,2)=rs(n,t,2):r$C40,p, 3)=strs (val (bes$)x-1)<shift>/ 
<spatie>ab : 

2860 if bg$="m"then r$(40,0, 3)=str$(val(r$(40,0,3))+1)<shift>/<spatie>dfd 

2870 r$(n,0,2)=str$(val (r$(n,0,2))+val (be$)):r$(n,0,3)=str$(t)<shift>/<spatie 
2e0 

2880 if val(r$(39,0,3))=15 then n=39:goto 2610<shift>/<spatie>2b 

2890 if val(r$(40,0,3))=15 then n=40:goto 2610<shift>/<spatie>21 

2900 goto 2500<shift>/<spatie>rdl 

2950 remkxXKkKKAXKKKKAKKKKKKSUDrOUtTInNe voor pieptoon bij InvoerxkKxKKAKKKKKKKKKKK 
xx<shift>/<spatie>d42 

2960 poke 54296,15:poke 54278,255:poke 54273,95:poke 54276,17<shift>/<spatie>98 
2970 for z=l1 to 100:next z<shift>/<spatie>dbe 

2980 poke 54276,0:poke 54277,0:poke 54278,0:return<shift>/<spatiedad 

BO00 rem KKXXAKKKKKAKKKKKKKAKEKKKKAKKKK OVEFZICHESEN KKKKAKKKKAKKKAAK KKK KKK K KKK K 
xkx€shift>/<spatie>d5f 

3010 printcl$<shift>/<spatie>7b 

3020 printtab(12)rv$i" x overzichten x"sro$<shift>/<spatie>da7 

3030 print“=sss=sssssssssssssssessesseessaseas=a=";dos$sdos<shift>/<spatie>44 
3040 print”rekeningschema”;tab(35)"f1"°;do$<shift>/<spatie>ad 

3050 print “saldibalans/printer";tab(35)"f2"sdosS<shift>/<spatie>86 

3060 print"mutaties per rekening”;tab(35)"f3"sdos<shift>/<spatie>re& 

3070 print"“uitvoer mutaties/printer";tab(35)"f5"sdos<shift>/<spatie>b5 

3080 print”terug naar menu"stab(35)"f£7";dos<shift>/<spatieril 

3090 printdo$;doss“wat is uw Keuze?";dosidos<shift>/<spatie>86 

3100 get a$:if aS=""then 3100<shift>/<spatie>17 

3110 a=asc(a$)-132:if a>S then 3100<shift>/<spatie>31 

3120 on a goto 3200, 4000, 4500, 1300, 3600<shift>/<spatie>66 

3200 rem KKKKKKAKKKKKKKKKKKKKKKK OVerzZicht reKeningschemMa KAXKAKKAKKKKKKKKKKK 
xx<shift>/<spatie>47 

3210 printclS:input”"wat is de datum (ddmm)"sndatS<shift>/<spatie>9a 

3220 printcl$<shift>/<spatie>d2a 

3230 printtab(4)"xxrekeningschema d.d."“ndat$"xx"<shift>/<spatie>da8 

3240 print“ =ssssssssssssssssssssseesssesasaesea=ae"(shift>?/<spatie>00 

3250 for i=1 to 20<shift>/<spatie>53 

3260 :printr$(i,0,0)stab(4)r$Ci,0,1)stab(20)r$(i+20,0,0)stab(24)rsCi+20,0,1)< 
shift>/<spatie>92 

3270 next i<shift>/<spatie>0oOl 

3275 printtab(10)dos;"terug fi afdruk f5"<shift>/<spatie>bb 

3280 get a$:if at=""then 3280¢shift>/<spatie>ddo 

3290 if a$=chr$(135) then open4,4:gosub 3400<shift>/<spatie>df 

3300 if a$=chr$(133)then 3000<shift>/<spatiede7 

3319 goto 3280<shift>?/<spatie>62 

3400 FEM FOO III I IO OOO dG SCTE eT UMD IOI IORI II IK Kok 
xx<shift>/<spatiedca 

3410 openi,4,1i<shift>/<spatie>f4 

3420 printchr$(19):open5S, 3<shift>/<spatie>d89 
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3430 zz=(peek(210))*«256<shift>/<spatie>bdS 
3440 for y=Oto24:b$=""<shift>/<spatie>d6b 
3450 for x=O0to39:as=""<shift>/<spatier6f 
3460 ifpeek(zz+(Cyx40)+x))>127thenget#5,as:bs=b$ichrs(18)+astchrs$ (146): goto5110 
<shift>/<spatied7f 
3470 get#5,a$:<shift>/<spatie>47 
3480 if aS$=chr$(13)then a$=" “<shift>/<spatie>5d 
3490 bS=b$taS<shift>/<spatierd2 
3500 next x<shift>/<spatie>7b 
3510 print#4,b$<shift>/<spatie>5d 
3520 next y<shift>/<spatie>16 
print#!,chr$(12)chr$(19)<shift>?/<spatie>49 
print#4,chr$(19)<shift>/<spatie>97 
close5:closed:closel:return<shift>/<spatiedf7 
LEM KEKKKKKKKKKKKKAKKKKKAKKKKKKX SAaldibalans Printer KKHKAKKKKKAKKKKKKKKKK 
xkx<shift>/<spatie>dbd 
3610 printcl$:input"wat is de datum"sndat$:td=0:tc=O<shift>/<spatie>2e 
3620 open4d, 4<shift>/<spatie>99 
3630 print#4,chr$(14)chr$(14)"saldibalans per “ndat$schr$(13);chr$C13)schrs (15>) 
<shift>/<spatie>65 
3640 for n=1 to 40:gosub 3760:if val(r$(n,0,2))<O then 3670<shift>/<spatie>07 
3650 print#4,r$(n,0,0)schr$(16)"05"r$(n,0, loichr$(16)"28"right$(s%,9)<shift>d/ 
<spatie>68 
3660 td=tdtval(r$(n,0,2)):goto 3690<shift>/<spatierla 
3670 print#4,r$(n,0,0)schr$(16)"05"r$(n,0, 1)ichr$(16)"40"right$€s$,9)<shift>/ 
<spatie>72 
3680 tc=tctval(r$(n,0,2))<shift>/<spatie>89 
3690 next n<shift>/<spatie>as 
3700 print#4,chr$(13)ichr$(16)"28 "<shift>/<sp 
atie>13 
3710 z$=str$(td):gosub 4930: td$=s$<shift>/<spatie>dib 
3720 z$=str$(tc):gosub 4930: tcS=ss<shift>/<spatierd ed 
3730 print#4,chr$C16)"28"right$(td$,9)schr$C16)"40"right$Ctc$,9)<shift>/<spat 
le>2e 
3740 print#4,chrs(C16)"28 “sprint#4,chrs$(Ci2><shift 
>/<spatie>&bbh 
3750 print#4,chr$(19):close4:close3:goto 3000<shift>/<spatie>51 
3760 1l$=strs$CintCabs(100xval (rs (n,0,2))/100)))<shift>/<spatie>Sc 
3770 v=int(1LOOxabs(val(r$(n,0,2)))+.5)<shift>/<spatie>80o 
3780 vS=right$(str$(v),2):ifv=Othenvs="00"<shift>/<spatie>dd 
3790 s$=" "41$+"."t+v$<shift>?/<spatie>9b 
3800 return<shift>/<spatie>58 
4000 rem xkxxKxKKKKKK OVerzicht mutaties per rekening op scherm xxxxXXkkKKKKK 
xkkkx¢shift>/<spatie>d03 
4010 printcl$;"wat is de laatste mutatiedatum”s:input ndat$<shift>?/<spatie>8c 
4020 printcl$:td=0:tc=0:sn=0:tds="":tcs$="":sn$=""<shift>/<spatie>ld 
4030 print"welke rekening wilt u zien”:input”OO=stop"sn:printcl$<shift>/<spa 
tie>43 
4040 if n¢1 or n>40 then 3000<shift>/<spatiedéf 
4050 if n>2 and n¢<41 then 4170<shift>/<spatie>69 
4060 if n¢=2 then printdo$sdo$;"van rekening "r$(n,0,0)" “r$(n,0,1)<shift>/< 
spatie>74 
4070 print"worden geen mutaties bewaard"<shift>?/<spatie>dlic 
4080 l=len(str$Cint(val(os$(n)))))+3<shift>/<spatie>98 
4090 printdo$;do$"oud saldo "odat$;tab(39-l)dos$(n)<shift>/<spatie>4d 
4100 l=len(str$Cint(Cval (r$(n,0,2))3))+3<shift>/<spatie>3f 
4110 print"nieuw saldo “:printndat$;tab(39-1l)r$(n,0,2)<shift>/<spatie>6d 
4120 print”voor vervolg toets fl"“:print"“voor afdruk printer toets £5" 
<shift>/<spatie>d2c 
4130 get a$:if a$=""then 4130<shift>/<spatie>31 
4140 if a$=chr$(133) then 4020<shift>/<spatie>36 
4150 if a$=chr$(135) then b$="afdruk":gosub 4550:goto 4020<shift>/<spatie>fi 
4160 goto 4130<shift>/<spatie>df 
4170 printcl$ir$(n,0,0)" “"r$(n,0,1)3doS<shift>/<spatiedrde6 
4180 l=len(str$¢(int(val(os$(n)))))+3:p=30:if valCos$(n))<O then p=39<shift>/ 
<spatie>36 
4190 printtab(7)"oud saldo “:printtab(7)odat$;tab(p-ldoss(n)<shift>/<spati e>34 
4200 if val(Cos$(n))>=0 then td=tdtvalCos$(n))<shift>/<spatied7f£ 
4210 if valCos$(n)><O then tc=tctvalCos$(n))<shift>/<spatie>dd 
4220 if val(r$(n,0,3))=0 then 4310<shift>/<spatie>3a 
4230 for t=! to val(r$(n,0,3))<shift>/<spatied9a 
4240 p=30:if val(r$(n,t,3))<0 then p=39<shift>/<spatie>86 
4250 l=len(strs$CintCval(rs(n,t,3)))))+3<shift>/<spatierc4 
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Pre 7 One oe 








/<spatiedii 


4260 printtab(O)rs(n,t,0);tab(2)ré(n,t,1)3tab(7)lefts(r$(n,t,2),12)3<shift? 


4270 printtab(p-l)r$(n,t,3)<shift>/<spatie>44 
4280 if val(r$(n,t,3))>=0 then td=tdtval(r$(n,t,3))<shift>/<spatiedaf 
4290 if val(r$(n,t,3))<O then tc=tcival (r$(n,t,3))<shift>/<spatie>65 
4300 next t<shift>/<spatied0a 


4310 printtab(20)"-------- 


hift>/<spatie>65 


-"3tab(30)"--------- "“:tdS=strs$(td):tc$=str$(tcd<s 


4320 l=len(strS$Cint (val (td$)))>+3:m=len(str$Cint(val (tc$)))d3+3<shift>/<spat 


ie>cc 


4330 printtab(29-1)dtd$;tab(39-m)tc$<shift>/<spatiedrSf 
4340 sn$=str$(val(td$)+val(tc$)):l=len(str$Cint(val(sn$))))+3<shift>/<spati ed14 
4350 if val(sn$)}>=0 then printtab(7)"“nieuw saldo”:printtab(7 }ndat$itab(39-1)s 


n$<shift>/<spatie>5d 
4360 
e>a3 
4370 


if val(sn$)>=0 then tc$=str$(val(tc$)-val(sn$)):goto 4390<shift>/<spati 


if val(sn$)<O then printtab(7)"nieuw saldo"“stab(29-l)sn$<shift>/<spati e>24 
4380 tds=strs$(val(td$)-val(sn$))<shift>/<spatie>de8 


4390 printtab( 20) --------- ";tab(30)°--------- "<shift>/<spatie>94 


4400 l=len(str$Cint (val (td$))))+3:m=len(strs$Cint(val (tc$))))+3<shift>/<spati 


e>id 


4410 printtab(29-1)td$;tab(39-m)tcS<shift>/<spatie>8e 


4420 printtab(20)"s==ss=== 





4430 print"voor vervolg 
shift>/<spatie>7b 


=";tab(30)"=s=s======"<(shift>/<spatie>f6 


toets fl”:print"“voor afdruk printer toets £57 < 


4440 get aS:if aS=""then 4440<shift>/<spatie>48 





4450 
4460 
4470 








if a$S=chr$(133)then 4020<shift>/<spatie>79 
if asS=chr$(135)then bs="afdruk":gosub 4550:goto 4020<shift?/<spatieraa 
if a$=chr$(136)then 1300<shift>/<spatie>éc 


4480 goto 4440<shift>/<spatie>ic 
4500 rem XXXXXKKKKKKKKKKKKKK Ultprinten periode-mutaties KxXKAKAKAKKKKKKKEKKK 








xx<shift>/<spatied73 





4510 printcl$;do$;do$:doS;"uitprinten periode-mutaties” s:do%;do$;dos<shift>/< 





spatie>Sf 













BASF FlexyDisk 5,25”, 
5,25”HD, 8” 

Volledige bedrijfszekerheid nu bij 
twee keer zo lange levensduur: 
gemiddeld 35 miljoen lees- 
schrijfkoppassages per spoor. 


4520 print”"wat is de datum van de“<shift>/<spatie>48 


BASF FlexyDisk 


BASF FlexyDisk Science 
5,25”, 5,25”HD 

De top-diskette voor gebruik in 
wetenschap en techniek. 


Temperatuurbestendig tot +70°C. 


Volledige opperviaktecontrole. 
Gemiddelde levensduur van 70 
miljoen lees-/schrijfkoppassages 
per spoor. 







































































Oley ela 


BASF . 


BASF FlexyDisk 
35” 

De diskette met extreem 
hoge registratiecapaciteit 
voor de nieuwe micro 
disk drive generatie. 
Leverbaar in 1D en 2D 
ultvoering. 







Flexy Disk 


DMB SRR RSESRRRSERARFEPIIIIiIhy 


100% certified 7 
y 





Flexy Disk 


SOIeICe 


IB BRB REESSEES Baatitiiiit 


100% certified 


Bedrijfszeker door top-technologie 





BASF Nederland BY. 
Divisie Datatechniek 
Postbus 1019 

6801 MC Arnhem 
Tel. 085-717302 


{BASF 


ey a 


Flexy Disk 
oS S 


1OO% certified 
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_LISTINGS VANLEZERS 


C 


4530 input"laatste mutatie (ddmmjj)“indatS<shift>/<spatie>28 

4940 printdotido#sdos; "even geduld a.u.b."<shift>/<spatie>Sb 

4550 open!l,4:open8,4,3<shift>/<spatie>f0 

4560 print#3,chr$(27):rem *xkex4ee4kkk bepalen bladlengte op 27 regels xxxxxx 
xxx(shift>?/<spatie>6b 

4570 print#i,chr$Cid7):rem xxxxxxkxkkxAKK bladlengte inschakelen *xxx*KKKKK* 
wxexCshift>/<spatie>42 

4580 if b$="afdruk"“then 4600<shift>/<spatie>00 

4590 for n= 1 to 40<shift>/<spatie>13 

4600 tc=O:td=0:td$="0.00":tc$="0.00" :2$="0.00":s$="0.00"<shift>/<spatiedda 
4610 print#l,chr$(1l4dchr$(14)re(n,0,0)" "r$(n,0,1>schr$(1O)ichré¢(10><shift>/ 
<spatie>b4 

4620 z=vallos$(n)):z$=oss$(n):gosub 4930<shift>/<spatie>7d 

4630 ifz<Othen print#!,”oud saldo d.d. "“odatS$ichr$(16)"50"s$<shift>/<spati eded 
4640 ifz<Othen tc=tctval(s$):goto 4710<shift>/<spatieddd 

4650 print#l,”"oud saldo d.d. “odat$;chr$(16)"35"s$:td=tdival(s$)<shift>/<sp 
atie>b6 

4660 if n>2 then 4710<shift>/<spatie>c5 

4670 zS=strs(val(r$(n,0,2))-val(Cos$(n))):z=val(z$):gosub 4930<shift>/<spati e>13 
4680 if z¢<O then 4700<shift>/<spatiedac 

4690 print#1,"“saldo mutaties”schr$(16)"35"s$:td=tdtval(s$):goto 4780<shift>/< 
spatie>l4 

4700 print#i,"saldo mutaties"schr$(16)"50"s$:tc=tctval(s$):goto 4780<shift>/< 
Spatie>19 

4710 if val(r$(n,0,3))=0 then print#1,"“geen mutaties":goto 4780<shift>/<spati 
e>36 ’ 

4720 forx=lto val(r$(n,0,3)):z2$=r$(n,x,3):gosub 4930<shift>/<spatie>7f 

4730 z=val(€zs):if z<O then 4760<shift>/<spatie>dfo 

4740 print#l,r$(n,x,0);chr$(16)"04"rs(n,x, l)schr$(16)"10"r$(n,x,2)3<shift>/<s 
patie>7f 

4750 print#1,chr$(i6)"35"s$:td=tdtval(s$):next x:goto 4780<shift>/<spatie>60 
4760 print#1,r$(n,x,0):chr$(16)"04"r$(n,x, 1)schr$(16)"10"rs(n,x,2)3<shift>/<s 
patie?63 

4770 print#1,chr$(16)"50"s#:tc=tctval(s$):next x<shift>/<spatie>f7 

4780 print#l,chrs(16)"35 "“;chr$(16)"50---------- “€shift>/<spatie>03 
.4790 zS=str$(tdi:gosub 4930: tds=ss$<shift>/<spatiercf 

4800 zS=str$(tc):gosub 4930: tcs8=s$<shift>/<spatie>b9 

4810 print#1,chr$(16)"35"tdsichr$(16)"50"tc$<shift>/<spatie>62 

4820 z$=r$(n,0,2):gosub 4930:if val(r$(n,0,2))<=0 then 4840<shift>/<spatie>58 
4830 print#i,"nieuw saldo d.d. “ndat$;chrs$(i16)"50"s$:tc=tc-val(s$):goto 4850<¢ 
shift>/<spatie>ded 

4840 print#l, "nieuw saldo d.d. "“ndat$;chr$(16)"35"s$:td=td-val(s$)<shift>/<sp 
atie>ba 

4850 print#1i,chr$(Ci6)"35 "schr$(C16)"50 "€shift>/<spatie>5d 
4860 zS=strs(td):gosub 4930: td$S=s$<shift>/<spatie>85 

4870 z$=str$(tc):gosub 4930: tc$=s$<shift>/<spatie>d7e 

4880 print#l,chr$(16)"35"td$ichr$(16)"50"tc$<shift>/<spatie>b9 

4890 print#l,chrs(i6)"35 ";chr$(C16)"50 "€shift>/<spatie>b4 
4900 print#l,chrs(12):ifbs="afdruk” thenb$S="klaar":close3:closel:return<shift> 
/<spatie>8d 

4910 next ntshift>/<spatie>fl 

4920 close3:closel:goto 3000<shift>/<spatie>a3 

4930 rem XXXXXAXAKAKKKKK Subroutine voor printen getalstrings *XAKAKKKKKKKKKK 
xxCshift>/<spatie>87 

4940 1$=str8Cint(abs(100xval (z$)/100)))<shift>/<spatie>fs8 

4950 if val(z$)<0O then 1$="-"4+1$<shift>/<spatie>65 

4960 v=int(100xabs(val(z$))+.5):v$=right$(str$(v),2):if v=0O then v$="00"<shif 
t>/<spatiedbf 

4970 ss$=" "4+1$+"."tv$:ss=right$(ss$,10):return<shift>/<spatie>fb 

5000 printcl$:end<shift>/<spatie>93 
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GEBROEDERLIJK ZEGT NEDERLAND 
VOLMONDIG JA TEGEN DE HR-S. 





































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Lof en hulde. Zo luidt het algemene oordeel over de 
Brother HR-5. Daar is natuurlijk een reden voor. Tien redenen 
zelfs, als u ze op uw vingers natelt. Ten eerste is het een dot . 
matrix printer waar u de afzonderlijke puntjes niet of nauwelijks S$ 
aan af ziet. Ten tweede print de HR-5 zowel op normaal papier 
als op thermisch papier. Ten derde is het formaat Zo klein 
gehouden dat de HR-5 samen met een personal computer in 
een attachékoffer past. Ten vierde is het gewicht maar 1.75 kg. 
Van vijf tot tien volgt dan nog de werking ook op batterij, 80 
tekens per regel, de broederschap met bijna alle computer 
types, RS 232 C, centronics parallel of Commodore versie, de 
gave uitprint van grafieken, de printsnelheid van 30 tekens per / : 
sekonde en de fluisterstilte onder het printen. Carboncassette voor normaal papier. 

Zoveel kompleetheid in zo’n klein maatje, dat blijkt : 


overal onverdeeld goed te vallen. Vraag 
de dokumentatie aan op onderstaand 











adres. Adviesprijs f 695,- ex. btw. BROTHER INDUSTRIES LTD., NAGOYA/JAPAN 

BON: Poe eyc pete eee Ne tg CDA okt. | 
a |k wil meer informatie over de HR-5. 

Naam: 

Adres: 

Postcode: Plaats: 








Opsturen naar: Brother International (Nederland) BV. Postbus 600, 1180 AP Amstelveen. 





Brother International (Nederland) BV, 
Zanderij 25-27, 1185 ZM Amstelveen. Telefoon 020-4744 


Brother Industries Ltd. Nagoya, Japan. 








DE NIEUWE COMMODORE 








PC 





De IBM compatible 
voor een ongelootiij 


lage pnjs. 


f. 5.695,- 


EXCL. B.T.W. 
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De nieuwe Commodore met standaard 256 Kb geheugen, 
inclusief toetsenbord, dubbel diskette station en inclustef 
een monochrome high-resolution monitor. 











De nieuwe Commodore PC is een zeer krachtige 
16 bits computer. Hij werkt met alle bestaande 
MS/DOS software, die over de gehele wereld 
momenteel gebruikt wordt. Daardoor beschikt u 
over honderden programma’s die door en door in 
de praktijk werden getoetst. Voor algemene toe- 
passingen zoals tekstverwerking, spreadsheets, 
grafische programma's en data management. 
Maar ook voor specifiek zakelijke toepassingen 
voor velerlei branches, met name in het midden- 
en kleinbedrijf. Dat wordt u nu geboden - en nog 
veel meer - voor een prijs die zeker een nieuwe 
standaard wordt. 


De nieuwe Commodore PC. Leer hem snel 
kennen. @ INTEL 8088 |6 bits processor @ 256 Kb 
RAM intern geheugen, uit te bouwen tot 640 Kb 
@ Dubbel diskette station, 2 x 320/360 Kb@ High- 
resolution monochrome monitor, groen®@ ASCIl 
toetsenbord @ Eveneens leverbaar de PC 20 voor 
de prijs van f 9.150,- excl, B.T-W. (diskette station 
| x 360 Kb en | x 10 Mb harddisk). Voor meer 
gedetailleerde informatie over de Commodore 
PC kunt u terecht bij de neven- 
staande geautoriseerde Cx 
Commodore Systeemdealers. a 
Of vraag documentatie met de} — cgmmodore 

Daar wordt een mens wijzer van 





coupon. 





| Ja, stuur mi de complete 
CO U PO N documentatie over de nieuwe 
Commodore PC. 
Naam bedrijf 





Contactpersoon 


Adres 








Telefoon 





| 


Functie 





Handtekening __ 


Zend de coupon in een gefrankeerde envelop aan: | 
| Commodore BV, Postbus 8192, 1005 AD Amsterdam | 


| 

| 

| 

|“ 

| Postcode/Plaats 
| 

| 

: Toepassing 


Alkmaar Accom BY, Verdronkenoord 28, tel. 
072-122412. Alphen a/d Rijn Hermes H.CS. BY, 
Kopenveg 35, tel. O1720-35079. Amersfoort Acto 
BV, Amsterdarnseweg 53, tel. 033-621724. Am- 
sterdam A.K.G. Micro Systemen, Dam 27, tel. 020- 
272266. Bocaraton BM, Schepenbergweg 16, 
tel. 020-97075|. Heisterkamp & Partners BY, 
Stadhouderskade 2, tel. O20-163429. Jon Kee 
Groep, Thorn Prikkerstraat 50, tel. 020-170806. 
Prompt Computerservice, Prinsengracht 366, tel. 
020-228078. W & L Automatisering, Parnassusweg 
203, tel. 020-798707. Arnhem Bruns Kantoorinst. 
BY, P. Callandweg 56, tel. 085-648550. Assen 
Kuyer Computer Systemen, Kloekhorststraat 8, tel. 
05920-15881. Beverwijk Dingler | Computer 
Partners, Graaf Janstraat |, tel. 02510-29171. Bode- 
graven MMS BX, Europaweg 3, tel. 01726-11171. 
Bovenkarpsel Complan B.V., Hoofdstraat 156, tel. 
02285-11628. Breda Indelec B.V., Wilhelminastraat 
44, tel. 076-142333. Doetinchem Egberts Software 
BN, Houtsmastraat 150, tel. 08340-44627. Drie- 
bergen Ing. Bur, A. Kooijman, Hoofdstraat 119, tel. 
03438-21051. Eindhoven L+T International B.V., 
Winkelcentrum Woensel 84, tel. 040-41 1425. 
Reyers, Willemstraat 3, tel. 040-522888 Enschede 
Compakt Automatisering, Steenriet 16, tel. 053- 
338585. Gorredijk Incap BV, Leitswei 9, tel. 05 | 33- 
4400. 's-Gravenhage A.5S.O., Frederikstr. 76, tel.070- 
650348. Datacom, Oranjestr. 7, tel. 070 - 655812. 
Info Computercentrum, Noordeinde 101, tel. 070- 
646830. Logic Data, Rijswikseweg 31, tel. 070- 
887328. Groningen Incap B., Peizerweg 68, tel. 
050-120603. Harderwijk Microsign BV., Verkeers- 
weg 53, tel, 03410-20004. Ridero Computerhouse, 
Hierdenseweg 16-18, tel. 03410-12984. Hard. 
Giessendam C.A.B. Holland B.V., Peulenstraat 55, 
tel. 01846-6638. Heeswijk Dinther Heisterkamp & 
Partners, Brouwerstraat 15, tel. 04139-2818. Hel- 
mond Automatiserings Advies Centrum, Hortsedijk 
37, tel. 04920-47775. Hendrik Ido Ambacht Troost 
Systemen Centrum, Veersedijk 63, tel. 01858- 
17022. Hengelo Heisterkamp & Partners, Willem- 
straat 67, tel. 074-437992. 's-Hertogenbosch Malm- 
berg Fysica, Beverspijken 5, tel. 073-215565. 
Hilversum Computerworld, Hilvertsweg 99, tel. 
035-|2633. Hoevelaken System Design Nederland 
BM, Oosterdorpstraat 166, tel. 03495-37100. 
Hoofddorp W & L Automatisering, Concoursbaan 
Ib, tel. 02503-31890. Hoorn Compuregio, Nieuwe 
Steen 6, tel. 02290-32624. Kerkrade Comser 
Systems B.V., Old Hickoryplein 4, tel. 045-462665. 
Laren Inter Access Systems BV, Naarderstraat 66, 
tel, 02153-13000. Maarssenbroek Perce Computers 
BV, Planetenbaan 2, tel. 03465-66066. DeMeern 
Aton Services BV, Strijkviertel 33, tel. 03406-3944. 
Middenbeemster Cryoson Hi-Tech, Riperweg 40, 
tel. 02998-1670. Oegstgeest K.P.D., Rhijngeester- 
straatweg 58, tel. O7!-171041. Raalte Combo B., 
Deventerstraat 43, tel. 05720-54772. Ridderkerk 
Computer Centrum Randstad, St. Jorisstraat 3, 
tel. 01804-27878. Roermond Info 80, Minderbroe- 
dersingel 30a, tel. 04750-17520. Rotterdam A.C.C., 
Groothandelsgebouw A, 5e et., tel. 010-128640. 
Computerworld, Keerweer 99, tel. 010-137823. 
Confi Personal Computing, Vasteland 28, tel. 010- 
146941. Deltacom Informatiesyst. B.V., Koperstraat 
30, tel. 010-552555. Faab Software, Schiedamsedijk 
67a, tel. 010-332077. Heisterkamp & Partners, 
Statenweg 39, tel. 010-667933. Kraan Bouwcompu- 
ting, Weena 128, tel. 010-136950. MMS Compro- 
shop BV., Westblaak 15, tel. 010-132813. Rijswijk 
Biasc Computer Systems BV., Bruyn Kopsstraat |2- 
14, tel. 070-900100. Sneek Stercom BY. Mr. 
C.P.M. Rommestraat 6, tel. 05150-23885. Soest 
Advisie B.V., Vredehofstraat 13, tel. 02155-11434. 
Utrecht Heisterkamp & Partners, Oude Noord 
[1 1,*tel. 030-322633. Techmation/Crest B.V., Savan- 
nahweg 35, tel. 030-4201 22. Valkenswaard Cosmos 
Computer Service BV, Valkenierstraat 2, tel. 
04902-17940. Veendam Infocient, Eems 18, tel 





| 05987-16018. Yzendoorn MBM Microsystemen, 
Keizerstraat 9, tel. 03444-3232. Zaandam Micro- 
plus, Zomerdijk 31, tel. 075-3513! |. Zeist Compute 
Zeist BV, 2e Hogeweg 123, tel. 03404-25252. 
Zwolle B.S.G. Nederland B.¥., Diezerplein 26, 
tel. 038-548855, 





COMMODORE 


Abonnees van Commodore Dossier Aktief kunnen in deze ru- 
briek kosteloos een advertentie plaatsen. De service is uit- 
sluitend bedoeld voor particulieren. Puur commerciéle adver- 
tenties en aanbiedingen van illegale programmatuur worden 
geweigerd. De redactie is niet verantwoordelijk voor fouten 
als gevolg van ae op 
regels van 2 


hoogste 
IK ZOEK SOFTWARE 


@ ik zoek het boek ‘The Hackers’s Hand- 


book’ van Hugo Cornwall gelieve mij het 
adres te geven van winkels waar ik het 
boek vinden kan (als het kan in Belgie). 
Adres: Peter Nardulier, Prins Boudewijn- 
laan 138, 2520 Edegem, Belgie. Tel. 
03-4575786. 


@ Ik zoek spelletjes zoals soloflight, koa- 


la painter enz. (CBM-64). en progr. voor 
sharp MZ-700. 20 nodig tegen ver- 
goeding. 


@ Wie heeft een BBS prg. 1200/75 
baud. 

Tel. 03240-33820 na 18.00 u. H. Vree- 
ken Zoetermeerpad 4, 1324 VJ Almere. 


@ Ik zoek het spel Renaissance van 
Louis & Savain. Katalog nr. SS049 tegen 
goede bilng voor de cmb64 op cas. of 
disk De Telder, Mozartstr. 13, 2018 Ant- 
werpen. 


@ Student zoekt boekhoudprogramma 
voor CBM 64. Contacteer: Kinders P., 
Wielstraat 31, 9160 Hamme, Belgié 


@ Wie bezorgt mij het onlangs uitgezon- 


ave. Een advertentie mag ten 
aansiagen lang zijn, 


den genetica programma van hobbyscoop 
voor CBM 64, Claessens Georges , Ispra- 
jaan 5, 2400 Mol, Belgié. 


@ Wie kan mij helpen aan de spelletjes 
airwolf en submarine commander voor de 
comm. 64. Veel ruilprog. bel 
02993-68478 na 17.00 uur. 


@ C-64 assembler op disk. of cassette. 
Tegen vergoeding. Tel. 05221-1792. 


@ Tom Ceelen, Kloosterlaan 21, 3500 
Hasselt, Belgie zoekt een programma voor 
op commodore 64 logo te programmeren. 
Dank bij voorbaat. tel. 011/272183 
(Belgie). 


@ Ik zoek spelen voor de C-128. Stuur 
mij je lijst. R. de Vogel, Slyckershorn 
13,1534 NW Oost-Knollendam. 


@ Zoek voor Vic 20 telex/morsedecoder 
+ 8K Ram. Schrijven aan: L. Zywicki, 
Achter den Winkel 240, 6372 AS 
Schaesberg.(L). 


@ Wie kan mij soloffight, Airline, Flightsi- 
mulator ll, of Wall Street cass. leveren? 
ik kan ook veel software ruilen. Stuur je 
lijstje naar: Rene Hage, Rubenstraat 39, 
3351 JT Papendrecht. 


WEES BLIJ DAT HET EEN SPELLETJE IS! 


De Sekée... 


IK ZOEK HARDWARE 


@ Commodore-64 1541-diskdrive zo 
goedkoop mogelijk. Schrijf naar $. Fran- 
cen , Wijchmaalsenbaan 36, 3588 
Hecktel-Eksel, Belgié. 


@ Ik zoek printer voor c-64. Liefst mps- 
801 of 803 aanbieding en prijsopgaven 
naar Hendrikslaan 29, 1944 RJ Beverwijk 
tel. 02510-40832. 


@ Gezocht: goedkope thermische printer 
geschikt voor GBM 64. Tel. 056/715205. 
Adres: Grote Heerweg 115, 8749 Beve- 
ren Leie, Belgié. 


@ Wie kan mij helpen aan een schema 
om een Klavier aan te sluiten op een 
C64? Ik wil ook een vergoeding betalen 
voor een goed aansiuitschema. 

H.v.d. Ende, Hoofdstraat 126, 9915 PH 
Het Zandt (Gr). 


IK BIED HARDWARE 
EN SOFTWARE AAN 


@ CBM-64 + sciento monitor +nw 
1541 /04 handle diskd + prgr’s + zgan: 
7 1500,- Ron Dodemont tel. 080-224601, 
Madoerastr. 15, Nijmegen tussen 18.00 
en 20.00 uur bereikbaar. 


@ Te koop: vic-20 + 16k + resetknop 
+ software + ned. handl. + 1 boek + 
stofhoes. f 425,- R.J. Kabbedijk, Baars- 
veen 538, 3205 BT Spijkenisse.Tel. 
01880-40288. 


@ Te koop: Tape-Queen 10/20 snel incl. 


tapedir+-supercopy 1 mnd. oud slechts 
f 70,- te ruil: software CBM-64 ca 800 


100 m? spel 


programma’s (cas + disk) Bel: 
053-317076 


@ C-64 + 1541 + GPI00VEC printer + 
rec + monit. 7502 + 2304 + softw. 
6Oxdisk + 6x tape + 1200 pr. 0.2. 
tekstvw’s, superb., comp’s account. 
flightsim e.v.a. + doc’s. f 2500,- tel. 
01854-3556. 


@ Org. CBM software op tape CAD CAM 
{25,-,IND. JONES {25,-, SPEECH SYN 
10,-, DECATHLON 25,-, 1 koop f 68,-. 
Bek: 08355-1727 (ERIK) 


@ Seikosha GP100 (drukker) 4 mnd 

f 475,-vic + 16k + 2 slots expansie- 
bord f 400,- tekstverwerker Quick Brown 
fox + handl. f 185,- Henkens, J.J.G.M. 
Gr. Hornelaan 11, 6001 AA Weert. 


@ Lichtpen voor CBM-64 met software 
f 62,50 tevens kan ik diverse emprom’s 
programmeren. Qok software te ruil. 
Schrijf naar: R.F.H. Paap Schouw 34-27, 
8232 DG Lelystad. 


© Te koop: VIC-20 computer + 
Ned.handl. / CW-RTTY decoder- 
converter/Orig. Moederbord VIC-1020 pro- 
grammer’s Aid VIC -1212 uitbreiding 16 k 
Ram schakelb. uitbreiding 8 k Ram scha- 
kelb. 3 VIC-20 boeken + veel software. 
Ailes in 1 koop f 1000,- (af huis). J. Hui- 
zingba, PASAIH Schubertlaan 23, 9402 
VB Assen, tel. 05920 — 40210. 


IK WIL RUILEN 


@ Ja, ik wil software ruilen. Heb 100 pro- 
gramma’s en zoek Bioritme programma’s 
voor CBM 64. Tel. 05913-13477. Bel na 
4 uur, liefst vrijdags. 





- 500 schermen 


een technisch hoogstandje van RadarSoft* 


vernieuwende superkwaliteit van RadarSoft* 


Een absolute topper. 

Een echt Arcade-avontuur 
dat alleen door de aller- 
besten en de allerslimsten 
tot een goed einde kan 
worden gebracnt. 


ZENUWSLOPENDE 
SPANNING, HYPER-STRESS 
EN PURE LOGICA! 

EEN LUGUBER SIUK 
SOFTWARE DAT ZELFS DE 
HAREN VAN DE ZWAARST 
BEPROEFDE AVONTURIER 
OVEREIND ZAL KRIJGEN 


EEN NEDERLANDSTALIGE 
GRAFISCHE 
ELEKTRONISCHE ROMAN met 


- 500 schermen smooth scrollend 
gevaar 
- 100% machinetaal... 62K 


o 


Andere kwaliteitsprogramma's van RadarSoft 
NecslativiClel Vow unLeser tela cery ela 
Europa/Wereld - Tempotypen - Rekenwonder 


SUC Ie lat-(ocIseree (oss 0) esl le-SI) 
- Steen der Wijzen - Tijdreiziger - Anonimus 
- Horror Hotel - Nautilus - Zone 7. 


Andere kwaliteitsprogramma’s van 
RadarSoft voor uw CBM64 zijn: 

- De grotten van Oberon - Eindeloos: 
Plcerielciaie Mec mems 20 
PACs cweta uu cu 

+ Letterstress - Radarbasic 50K 

+ Databasic - Steen der Wijzen ‘ 

= Tijdreiziger - Anonimus - Horror Hotel 
Bie Mraiseyoul-)7A 


RADAK 


‘Verkrijgbaar bij de off. RadarSoft dealers 0.a. Vroom & Dreesman, Dixons, Verkrijgbaar bij de off. RadarSoft dealers 0.a. Vroom & Dreesman, Dixons, Fotoquelle €.v.a. 


Fotoquelle e.v.a: 
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GREATEST 
HITS VAN 

PROMPT 
SOFTWARE. 


Prompt Software: leverancier bij uit- met PROMPT BOEK, schaf dan binnenkort 'n 
stek van betaalbare zakelijke software voor doosje met tien 38M-diskettes aan. Daarin vinat 
microcomputers, met name voor unamelijk'n gratis demonstratie-orogramma. 
Commodore en Atari. Wilt U meer weten over deze aktie, 

Eén van de meest succesvolle pro- bel dan 83M Nederland B.V.: 071-450450. 
gramma’'s is ongetwifeld PROMPT BOEK. Dit 
doordachte boekhoudprogramma 
bestaat uit een volledig basisdeel 
en vier eventueel later aan te schaf- 
fen uitoreidingsprogramma’s voor 
O.a. verlies- en winstrekening, 
balans, BTW-aangifte en crediteu- 
ren-administratie. 

Wilt u gratis kKennismaken 










































demonstratie diskette 
PROMPT BOEK 





TRE 


2 Pr ge 








Atarlis een gedeponeerd hendelsmerk van Alan Garporations VS. 
- Commodore is een gedeponeerd handelsmerk van-G Orn OU Oe 
Business Machines. 
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met 16K 4 
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mMAot spel te 


@ 
die voll i Comme 
@ ones in stats ELK 
@ NDERBREKEN enweel re VERVOLCEN! (pAUZE) 
Nene met ee" gratisch yeuze-men™ dat yanuit ELK 
Aol spel is aan te roepe™ 
die yanuit ELK pROGRAMMA of spel een 
sje printer heeft 








@ 
PROGRAMM 
@ 
n pcory van het gcher™ kan maken: 
idge zie ze\i of U een ntronics of een serieele P 
nZ rhet adres Van + HIRES plaatie- 
derbroken programm yiteraard 





le andere EPSON 
_ ieerde k akters- 
op $ rieele Pm 


En ve 
~ ookze 








g staal. 
jeden te bekijken 





DE POW 
ER CAR 
TRIDGE 
IS VERK 
RIJGBAAR BIJ DE MEES 
TE COM 
MODO 
RE DEAL 
ERS. 


Heeft u 
geen dealer i 
lerinuwo 
mgevin 
> dan ku 
nt u ook be 
stellen 
BANK: AMRO 44 ee overmaking v 
SS hethedrag plust 
: 3793232 sf. 5,- verzend 
kosten 
of onde 
 rembour: 

‘Se 


acre 
COL mcm 
SEE COUT ER SUPP 
ER SUPPLIES 

ad jn! Simon Vestdijk Erf 1 

Telefoon eee Dordrecht 





